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PREFACE 



The purpose of this manual is to provide the user with the information needed to develop and write 
microprograms which will run on the A700 processor for HP 1000 systems. The scope of this manual is 
complete in that no other manuals are required as references for writing microprograms. It covers the 
following major subjects: 

Part I - Why Microprogramming 

• Microprogramming Concepts 

• Microprogram Controllable Functions 

Part II - Microprogramming Methods 

• Microprogramming Preparation 

• Word Types 

• Microorders 

• Writing Microinstructions 

Part III - Microprogramming Support Software and Hardware 

• Using the Paraphraser Microassembler 

• Writable Control Store Support Software 

• PROM Control Store Support Software 

• HP 12156A Floating-Point Card Microprogramming 

Part IV - Microprogramming Examples 

• Example Microprograms 

Appendixes 

• Includes paraphraser information including summaries of microorders, microorder phrases, and a sum- 
mary of floating-point microinstructions 

• Includes the base set listing, and information on debugging microcodes 

• There is also a fold-out functional block diagram. 
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PREFACE (Continued) 



To gain a better understanding of the processor hardware, refer to the HP 1000 A700 Computer Reference 
Manual, part no. 02137-90001. For information on the Control Store Cards used for microprogram storage in 
this computer, refer to the HP 1000 A700 User Control Store Installation and Reference Manual, part no. 
02137-90003. Installation of the HP 12156A Floating-Point Card is covered in the HP 12156A Floating-Point 
Processor Kit Installation and Reference Manual, part no. 12156-90001. The Writeable Control Store driver 
ID.41 is described in its own manual, RTE Driver ID.41 For 12153A WCS Cards Reference Manual, part no. 
92045-90002. 
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SECTION 1 

MICROPROGRAMMING CONCEPT 



PART I 

Why Microprogramming? 



The HP A700 processor for HP 1000 systems has a microprogrammed architecture to provide flexibil- 
ity of micromachine operation. It allows future firmware enhancements of the instruction set and 
provides you with significant performance increases for your application. 

Microprograms in computers offer the following advantages: 



• 



Reduction of program execution time. By developing microprograms for often-used techniques, 
program execution time is significantly decreased. Execution time is reduced because: 

- Many instruction fetches are eliminated. 

- Microinstructions typically execute three to ten times faster than Assembler instructions. 

- Multiple operations can occur during a single microinstruction. 

- The microinstruction word width (32 bits in the A700 processor) provides a larger instruction 
repertoire than available with the Assembler word width (16 bits). 

- Many more registers and computer instructions are available to the microprogrammer than 
are available to the high-level language programmer. 

Implementation of customized computer instructions. Customized instructions (i.e., 
microprograms) can provide facilities not otherwise available. Examples are: 

- Post indexing and/or preindexing macroinstructions 

- Stack macroinstructions. 

- Special arithmetic macroinstructions (double integer, decimal, etc.) 



Types of applications that can be programmed: 






Sort routines (e.g., bubble, shell, radix-exchange, and quicksort). 

Arithmetic or Floating Point Calculations that can take advantage of the HP 12156A Floating 
Point Processor. 

• Transcendental Functions (e.g., sine, square root, and logarithms). 

• Fast Fourier Transform (FFT). 

You may also create microprograms to control your own customized hardware. Some microprogram 
examples are given in Part IV. 



1-1 



Microprogramming Concepts 

Microprogramming has disadvantages in some areas when compared to high-level language pro- 
gramming. For example: 

• Microprogramming of all or almost all routines for an application program can be cumbersome and 
unprofitable. An analysis should be made first to determine those areas that can benefit most from 
microprogramming. 

Microprograms are not relocatable in control store. 

Microprograms written for the A700 processor cannot be used on other HP processors without 
being rewritten. 






Although additional effort is required to become familiar with the processor in order to write a 
microprogram, the results are usually well worth the effort. The use of the paraphaser microassembler 
facilitates programming in such a way that the wide (32 bit) microword is easily coded. The following 
paragraphs outline the considerations involved when you decide to microprogram. 



1-1. MICROPROGRAMMING OVERVIEW 

The first consideration for an application program, or perhaps a library routine running in an RTE 
environment, is the execution time. Does it or any parts of it have to be faster? This may or may not be 
obvious in external operation (i.e., waiting time is too long for a line printer output when a certain 
calculation is performed, terminal response is too slow, etc.). 

Some method of analyzing the programming environment must be used to identify the areas which 
consume excessive time. Consider the basic methods described below: 



• 



Employ programming analysis devices (e.g., the HP 1610 Logic Analyzer) which attaches to the 
computer. This is the most accurate but most expensive method. 

• Perform a programmatical analysis. This is a compromise over the above method, it is less costly 
but less accurate. 

In summary, the first step is to find out what would be advantageous to microprogram. An analysis of 
the programming environment may reveal, for example, that setting up a microprogram for a 
seldom-used library routine would not give a cost effective return in overall software efficiency. 
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Microprogramming Concepts 

1-2. PROGRAM ANALYSIS METHODS 

The first analysis method (use a programming analysis device) described above under 
Microprogramming Overview is beyond the scope of this manual. 

The second analysis method described above requires a special program that monitors executing 
programs. It should record just where most of a program's execution time is spent, and it should point 
out to the user which sections of code can be optimized or microprogrammed to speed up program 
execution and throughput. 

For example, this monitor program could insert counters in the program being tested to determine how 
many times an instruction or routine is executed. 

There are other ways of obtaining useful timing information. For example, you can use the interrupt 
method as follows: 

• Use a time-scheduled program to monitor the desired program. 

• Reserve a "word block counter." for example, at every 500 words or so of main memory. 

In the time-scheduled program of the interrupt method, each time the device interrupts, the P-register 
could be sampled and the count incremented for the associated "word block counter." That is, a record 
is generated for the program location counter at periodic intervals. This could be done several hundred 
thousand times and, at the end of the sample period, a percentage of time spent in each area of memory 
can be obtained. Then . . . 

• The load map of the program being analyzed can be examined to determine which parts of the 
program could possibly be microprogrammed to decrease execution time. 

• The resolution for your analysis program could be changed, as could other parameters in the 
program to obtain the desired profile. 

This is the general idea of how an activity profile generation program could be used. Also you can refer 
to the Contributed Library Catalog, part no. 22999-90040, for programs you may be able to use. 

Once the activity profile generation program output is analyzed for any excessive computer time, you 
are ready to concentrate on a particular area for microprogramming. However, keep in mind the 
following: 

• The maximum benefit of microprogramming will not be realized by simply imitating Assembly 
language instructions in microroutines. 

• In order to determine specifically what to microprogram, the computer functions and program 
intent should be studied before you begin to write your microprogram. The final result will be a 
microprogrammed solution that executes in much less time and is totally or at least partially 
transparent. 

An overview of the steps to take in order to get your microprogram into operation is covered in the 
following paragraph. 
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1-3. THE MICROPROGRAMMING PROCESS 

Figure 1-1 provides an overview of the steps involved in microprogramming the A700 processor. The 
figure illustrates the following: 

• After a program analysis, the entry point (microaddress) for the control store module that you will 
be using must be determined. 

• The microprogram is then written as a source file for the Paraphraser microassembly language 
according to the information given in Part II of this manual. Using Edit/1000 it is corrected and 
stored in a disc file. 

• The paraphraser is executed (run MPARA). The microprogram source file is translated by MPARA 
and microassembled to generate object code. It will also provide a source listing, and an error list 
(if any). Optionally, according to the source program command statement, it will provide a floating 
field listing and a label listing. 

• Subsequent editing on the source program using Edit/1000 can correct any errors. 

• The object code microprogram usually will be loaded into Writable Control Store (WCS) using the 
WLOAD Utility and tested for fault free operation. Bugs in the microprogram are eliminated by 
again editing the source program, translating it with MPARA, storing it again in WCS and testing 
its operation until operation is free of errors. 

NOTE 

The HP 12 153 A Writable Control Store Kit is an important part 
of developing microprogramming. The developing of programs to 
store in Writable Control Store (WCS) or PROM Control Store 
(PCS) is the primary purpose of this manual (described in sections 
9 and 10). Information on WCS and PCS cards will be found in the 
HP 1000 A700 User Control Store Installation and Reference 
Manual, part no. 02137-90003. 



The ready-to-run microprogram can be stored in two ways: 

• It can be left in WCS. 

• You can create a permanent microprogram through the use of the Control Store PROM Burn 
Program of WLOAD. This software, in turn, can be used to generate the mask tapes or data files 
which are used to have Programmable Read Only Memory (PROMs) fused or "burned." The 
PROMs can then be installed on the HP 12155A PROM Control Store (PCS) Card. 

The advantages of executing microprograms from WCS are: 

• WCS can be reused for many microprograms. 

• WCS can be used to swap microprograms in and out of the system to suit a variety of users. 
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Figure 1-1. Overview of Microprogramming Steps 
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The disadvantages are: 

• Microprograms in WCS can be destroyed by an errant user of the system. 

• When computer power is removed, your microprogram is lost and must be reloaded. 

• Each WCS card requires an I/O slot in the computer; although a PCS card also requires a slot it 
stores twice as much microcode. 

The advantages of fusing (or burning) the microprogram into PROMs are: 

• The program is permanently stored on the PCS, and when the power is removed from the computer 
it does not have to be reloaded. 

• One PCS card contains twice as much control store as does a WCS card; therefore, potentially 
fewer card slots are used if large storage is needed. 

The disadvantage is: 

• There is much more involved in storing and changing the microprogram with PROMs than there is 
with WCS such that "bugs" in the microprogram will be harder to correct. 



1-4. EXECUTING YOUR MICROPROGRAM 

If your microprogram is stored in PROMs, it can be executed immediately through User Instruction 
Group (UIG) instructions. Whether your microprogram is contained in WCS or PCS, it can link 
Assembly language routines to microprograms. The hardware and firmware map each UIG instruc- 
tion to a unique control memory destination. UIG instructions are covered in Section 6. 

Microprograms that reside in WCS execute at the same speed as do those residing in PCS. Both WCS 
and PCS resident microprograms can be used along with the base set in control store. The base set is 
defined as the computer's standard instruction set of microprograms. 



1-5. SUMMARY 

To effectively create a microprogram, the programmer must have the following: 

• An understanding of what to microprogram. 

• An understanding of the HP A700 processor operation and its architecture. 

• Knowledge oi' the methods used to map to and access control store. 

• Knowledge of the appropriate microprogramming hardware and sofware products. 

One way to obtain this knowledge is to attend the Hewlett-Packard Computer Microprogramming 
course. The above subjects are all covered in the remaining portions of this manual but remember that 
most important first step, find out what you should microprogram. 
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MICROMACHINE DESCRIPTIONS 



SECTION 



This section covers detailed information that you should know about HP 1000 A700 computer 
operation. You should study it before attempting to write a microprogram for it. The following 
paragraphs describe: 

• The hardware functions controlled by microinstruction. 

• Aspects of the base set microprogrammed operation that will be important to your 
microprogramming. 

To implement your own microprograms you will not need to know the computer design at the logic 
circuit level. The information in this book should be entirely sufficient for your needs. The base set 
discussion will help you to become aware of the existing microprogram's operation. Below is a look at 
the overall computer followed by details on registers and other functions. 



2-1. MICROPROGRAM CONTROLLABLE COMPUTER FUNCTIONS 

Figure 2-1 illustrates the four major sections of the computer that control computer functions. In order 
of importance they are the following: 

• Microprogram Control Logic Section 

• Arithmetic/Logic Unit (ALU) Section. 

• Memory Controller Section. 

• Input/Output (Logic) Section. 

The other sections shown are memory array, memory maps, boot memory, processor registers, and 
control store. The base set on the lower processor connects by control store bus to the optional Writable 
Control Store (WCS), PROM Control Store (PCS), and Floating Point Processor (FPP). 

Accessories shown in the overall block diagram that are directly associated with microprogramming 
are the following: 

• HP 12 153 A Writable Control Store (WCS) Kit. 

• HP 12155A PROM Control Store (PCS) Kit. 

• HP 12 156 A Floating Point Processor (FPP) Kit. 

Important information about accessories related to microprogramming is covered in other sections of 
this manual, and a general description of the controllable computer functions is contained in the 
following paragraphs. 
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Figure 2-1. Major Sections of the Computer 
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2-2. OVERALL CIRCUIT DESCRIPTION 



The HP 1000 A700 Computer consists of two processor cards, memory controller and memory array. 
The upper processor card contains the Input/Output or Backplane Interface section and some of the 
processor registers. The lower processor card contains the Arithmetic Logic Unit (ALU), the 
microprogram control section, some processor registers, and the base set firmware. The processor cards 
communicate with the memory controller card over the Processor/Memory Controller Frontplane. 
Additional details of these sections are described below. 



2-3. MICROPROGRAM CONTROL 

The Microprogram Control Logic includes a "look-up" table, a micromachine sequencer, control store 
(memory) for the card, a four-deep microprogram subroutine stack, a microinstruction register, and 
decoders. The "look-up" table has an entry for each macroinstruction that selects the appropriate base 
set microinstruction address. 

The base set, WCS, PCS, and FPP receive addresses and send data, respectively, to and from the 
Microprogram Control over the Control Store Bus. 

The base set (standard instruction microprogram) is stored in 2k-microwords of ROM and is part of the 
"basic" computer. Extensions of the control store which you can use for your microprogramming are 
the 4k-microword WCS, the 8k-microword PCS, and the FPP card with either 2k- or 4k-microwords. (A 
microword is 32 bits wide and contains one microinstruction.) No more than four control store cards 
are allowed which can be any combination of WCS, PCS cards, and one FPP card. However, the 
maximum number of microinstructions words that can be addressed is 16k- words. 

WCS communicates with the I/O section to allow microprograms to be written to and read from the 
Memory Array. They connect to each other through the backplane, through which some signals for the 
control and loading of WCS are passed from the VO section. 

The WCS, PCS,and FPP are connected through the frontplane to the micromachine control store buses 
in a parallel fashion. Therefore, when executing microcode there is no difference in addressing the 
base set or the microinstructions you have added. The microinstruction output is the same. No matter 
how the microprogram control is physically implemented, together they appear as one large 
microprogram facility. 



2-4. ARITHMETIC/LOGIC UNIT 

The Arithmetic/Logic Unit (ALU) section of the computer includes most of the hardware required to 
actually carry out commands of the microinstructions. It provides the logic to perform arithmetic and 
logical operations on the data. 



2-5. INPUT/OUTPUT (BACKPLANE) SECTION 

The Input/Output (I/O) Section serves as the backplane interface between the computer and external 
devices. The I/O hardware responds either to Microprogram Control stimuli (for computer-initiated 
data or control operations) or to device stimuli (for device-signaling attention requests), and hence 
becomes the active communication link between the computer and peripheral devices. 
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2-6. PROCESSOR REGISTERS 

The directly-addressable working registers of the processor include an instruction register, a program 
counter register, an accumulator, a memory return register, and temporary storage (scratch) registers 
for use in processor operations. 

There are also indirectly-addressed register files including general-purpose, privileged, and special- 
purpose external registers. Special-purpose external registers are located on the memory controller 
card and FPP, and communicate with the processor over the processor/memory controller frontplane. 
Some of the privileged registers are reserved for use by the base set, and the special-purpose registers 
are used for map addressing, parity errors, interrupt updates, and reserved for future requirements. 



2-7. MEMORY 

2-8. MEMORY CONTROLLER. The Memory Controller controls the main memory of the 

computer system. It contains 32 Memory Maps with 32 registers each for dynamic mapping of the 
memory array. The Memory Maps store information used to generate the physical address of data 
accessed during a memory cycle (see Dynamic Mapping below). 

Memory Protect is part of memory control. Memory protect can interrupt and report the logical 
address of any instruction that attempts to read or write into protected pages of memory, or execute 
certain instructions flagged by the Dynamic Mapping System. The Read and Write protect bits are 
stored in the Memory Maps. However, an I/O device using Direct Memory Access (DMA) can access 
protected memory for both reads and writes; however, this occurrence is prevented by the RTE 
operating system. 



2-9. MEMORY ARRAY. All programs and data reside in the Memory Array section. The 

Assembly language macroinstructions stored in main memory are decoded by the Microprogram 
Control Section of the processor. 



2-10. DYNAMIC MAPPING SYSTEM. The 32k words logical address space of the HP 1000 
A700 architecture is expanded to 16 megawords of physical memory through a process called 
"mapping." The Dynamic Mapping system uses Map RAMs located on the Memory Controller to store 
information for generating the physical address of the data accessed in a memory cycle. The map 
RAMs extend the 15 logical address bits to the equivalent of 24 physical address bits using dynamic 
memory mapping. 

Since the maps involved can be dynamically reloaded, accessibility to the entire physical memory is 
accomplished. When the base register is enabled, two maps are used together to extend the addresses. 
These are called the Data and Code Maps. (Note: The base register is not supported by the RTE-A.l 
operating system; however, an update at some future time may include this support.) 
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2-11. BOOT MEMORY. Boot memory including ROM and RAM is stored on the memory 
controller card, and it is used each time the computer is powered up. The ROM includes a self test 
program which is a short processor checkout program. 



2-12. VIRTUAL CONTROL PANEL (VCP). The VCP program is an interactive program 
stored in the boot memory ROM that is written in HP 1000 Assembly code. The VCP enables an 
optional external device (usually a terminal) to control the processor in a manner similar to a 
conventional computer control panel. Using the VCP, an operator can access various registers (A, B, P, 
etc.), examine or change memory, and control execution of a program or load and initiate execution of 
the operating system or diagnostic. 



2-13. A CLOSER LOOK AT THE FUNCTIONS 

In Table 2-1 the microprogrammable functions of the major computer sections (shown in Figure 2-1) 
and the registers are described at a level which is consistent with microprogramming requirements. 
Wherever appropriate, the associated microorders and microinstruction fields are mentioned. 
Microorders and Microinstruction Fields are covered in detail in Section 4 of this manual. Table 2-1 
also has a section which briefly describes the bus system. 

Refer to the functional block diagram in Appendix E when reviewing the table. Once you understand 
the computer's architecture and the effect of microorders, microorder phrases, and the paraphraser 
microassembler, you will need only the detailed block diagram, and microorder charts to write 
microprograms . 

Figure 2-2 is a simplified block diagram of the Microprogram Control Section of the processor. In a 
"conventional" computer control section, specific hardware is dedicated to each function performed by 
the instruction set. The major advantage of the "conventional" approach is higher speed to process the 
instruction set. The major disadvantage is inflexibility for special applications or for enhancements. 

In the microprogrammed computer the logical functions are defined by a series of microinstructions 
contained in microroutines (subroutines of microcode). The microroutines are contained in the pro- 
cessor memory called "control store." The basic instructions for processor operation contained in 
permanent control store is called the "base set." In this way the microprogrammed computer is more 
flexible than the "hardwired" computer since microprograms can be modified to reprogram the 
hardware to perform different functions. 

The Microprogram Controller executes microinstructions at a very high rate which is fast enough to 
keep the main memory busy almost all the time. Thus, the speed penalty for using the 
microprogrammed architecture is essentially not a factor, especially when processing the base set of 
instructions. 

Since this computer is completely microprogrammable, user programs can be made to execute much 
faster with the application of user microprogramming. 
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Table 2-1. Computer Functions 



MICROPROGRAM CONTROL SECTION 



Entry Look-Up Table: 

Entered after microorder JTAB. Has a microroutine entry point for each macroinstruction in basic instruction set. 
16-bit instruction decoded to 8-bit address vectored to microaddress space from liexadecimal 100 to IFF. 

Micromachine Sequencer: 

Increments microroutine under microprogram control. Next address comes from one of the following address 
locations: 

1 . Current address plus one; 

2. Branch address in the current 64-word block or anywhere In the 16k (3FFF hex) word address field; 

3. Branch address supplied by look-up table; 

4. Return address from microsubroutlne stack. 

Subroutine branches will increment the stack pointer and push the current microaddress plus one onto the 
microsubroutlne stack. A return from subroutine will supply the next microaddress from the top of the stack and 
decrement the stack pointer. On power-up, the micromachine sequencer starts execution at location 0000 (hex). 

Control Store: 

The control store on the processor contains the base set of microinstructions and microcode diagnostics. Control 
store is extended over the frontplane bus to PCS, WCS and FPP cards. The processor can address 1 6k- words of 
which 2k-words are the base set. 

Decoder: 

The Decoder receives the microinstruction word that is output from the control store and decodes it. The decoded 
outputs are the processor control lines which cause the microinstruction to be implemented. 



ARITHMETIC LOGIC UNIT 



Arithmetic Data Paths: 

Microinstructions can specify the following data paths: 

1. A-bus operand which can come from either a register-file register or Immediate Data from the 
microinstruction; 

2. B-bus operand which can come from a register-file register or any other processor register; 

3. ALU output data to be stored in a processor register or written to main memory. 

ALU Functions: 

There are two categories of ALU functions as follows: 

1 . Standard operations (coded in the microinstruction ALU field) 

2. Special operation (coded in the microinstruction when SPEC is in the ALU field and the special operation to 
be performed is specified in the ALUS field). 

Note (parenthetic mnemonics refer to processor status bits): For all arithmetic operations, Carry Flag (CF) and 
ALU Overflow (ALOV) will be updated with the ALU results. Microorder ZERO forces the ALU output (F-Bus) to all 
Os, and disables the update of the following conditions in the condition register during the current cycle: CF, 
ALOV, SF (Shift Flag), YZ (Y-bus all Zeroes), Y15 (Y-bus bit 15 set), and B15 (B-bus bit 15). 

A. Standard ALU Functions: 

Arithmetic operations (true 2s complement add or subtract), are always performed with either a carry or a 
borrow. For add, the carry-in normally defaults to but can be forced to 1 by microorder FCIN. For subtract 
the borrow is the complement of the carry-in, and the carry-in defaults to 1 but can be forced to by 
microorder FCIN. The standard functions include logical operations which always result in the "clear flag" 
and "ALU overflow" being cleared. 
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Table 2-1. Computer Functions (Continued) 



ARITHMETIC LOGIC UNIT (Continued) 



B. Special ALU Functions: 

Wiien (SPEC) is in the microinstruction ALU field with the operation coded in the ALUS field the following 
functions can be performed: 

1. Byte swapping and masking, four-bit left rotate, and bit manipulation (microorders ASG and SRG). 
These operations are performed by the external ALU and operate only on the B-Bus. CF and ALOV 
processor condition bits are cleared. The four-bit left rotate (RL4) will not affect the processor Shift Flag 
(SF) bit. 

2. Arithmetic operations which may include a shift having multiply, divide, and floating point algorithms. 
Processor bits CF, ALOV, YZ, and SF represent different conditions used for some of these operations. 
(See Table 4-1). 

Shift Functions: 

There are three categories of shifts that can be executed in microcode: 

1 . Single-word, single bit shifts; 

2. Double-word, single bit shifts, enabled by (DW) double-word bit; 

3. Special function shifts (SPEC in the microinstruction ALU field ). 

The processor SF register holds the shifted out bit, and SF will be updated only for shift functions. It is not updated 
for "four-bit left-rotate" (RL4) and when the microinstruction ALU field contains the ZERO microorder. Details of 
shift functions are covered under SPO and SP1 Field in Table 4-1. 



MEIMORY SECTION 



IMemory Capacity: 

16,384k words physical address space, addressable over 24 memory address lines. Memory array cards may 
have 64k-words, 128k-words, 256k-words or 512k-words per card, up to a total of four cards per system as long 
as the maximum capacity Is not exceeded. The memory array cards automatically configure themselves in 
ascending address order as they are Installed In the backplane. 

lUlap RAMs: 

32k-words of memory can be addressed without mapping. Dynamic mapping is achieved through Map RAMs on 
the memory controller. The Map RAMs convert the 15-bit logical address received into a 24-blt physical address. 
Map RAM information can be changed by the processor. Memory read or write accesses are initiated by the 
processor or by an I/O device using DMA. The mapping system is used to separate code and data when the base 
register is enabled. When the base register Is disabled, there are 32 maps each with 32 registers which do 
address translation. When the base register is enabled, there are 16 pairs of maps. The lower map of a pair is the 
data map that translates data references, the upper map of a pair is the code map which translates instruction 
fetches. 

Memory Protect: 

Memory is protected by bits in Map RAM for read and for write. If the processor attempts a read or write to 
protected memory, a memory protect interrupt is generated but the backplane handshake Is allowed to complete. 
Writes can occur to read protected memory and reads can occur from write protected memory. An I/O device 
using DMA can read from and write to protected memory. 

Data Format: 

16-bit words and one parity check bit. Each data transfer moves 17 bits. Parity errors generate a parity error 
Interrupt signal. 

Timing: 

A complete memory access to main memory occurs within two clock cycles where the clock cycle is 250 ns. The 
fastest data transfer rate Is 2.0 Mword/sec or 4.0 Mbyte/sec. 
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Table 2-1. Computer Functions (Continued) 



INPUT/OUTPUT SECTION 



I/O Control and Select Logic: 

I/O timing, signal generation, and I/O address selection take place from this function. The interface control signals 
are generated as a result of the Microprogram Controller executing I/O microorders. 

Interrupt Control: 

Interrupt sources are latched and prioritized by hardware, and the interrupt source location is stored in a memory 
trap cell. A microcode interrupt service routine reads the Interrupt Status Register {1ST) to determine the interrupt 
of highest priority and take appropriate action. A read of 1ST into CT followed by a CT30 will vector to a unique 
point for each interrupt. The interrupt sen/ice routine executes a trap cell as described in the A700 Computer 
Reference Manual. 

Central Interrupt Latch (CIL): 

The CIL, one of the Special External Registers referenced by microorder SRIN, supplies an updated I/O select 
code address (refer to Base Set description). 



BUS SYSTEM 



The processor/memory-controller frontplane (microprogram control and data bus) connects the memory con- 
troller card and the two processor cards for the processor to access memory maps and external registers residing 
on the memory controller card, and to allow communication between the two cards. 

The frontplane bus connects the base set and the control-store accessories with the processor's microprogram 
control section over which the microinstructions are transferred. 

The backplane transfers data and addresses to memory from the processor. Each word of data into the processor 
is stored in the T-register. All data transfers to and from an I/O card go over the backplane. 



DIRECTLY-ACCESSED REGISTERS 



Directly-Addressable Register Files: 

Register files ROO through R1 7 (octal) are directly accessed on either the A or B Bus or in the STOR field. Their 
functional names are: 



Reg. No. 


Function 


Reg. No. 


Function 


Reg. No. 


Function 


(Octal) 


Name 


(Octal) 


Name 


(Octal) 


Name 


ROO 


A 


R05 


HP1* 


R12 


S2 


R01 


B 


R06 


HP2* 


R13 


S3 


R02 


X 


R07 


USR* 


R14 


S4 


R03 


Y 


RIO 


SO 


R15 


S5 


R04 


ACC 


R11 


SI 


R16 
R17 


S6 
S7 



'Reserved registers for HP (HP1 and HP2) and for the user (USR). 

Instruction Register (CT): 

The Instruction Register (designated the CT register since it serves as a general-purpose counter for shift and 
rotate operations) w\\\ be decremented by the SP2 microorder, or it will decrement automatically whenever 
microorder CTZ or CTZ4 is specified in the microinstruction condition field. This register is loaded with the 
macroinstructions from memory which are input to the micromachine microprogram "look up" table. The data or 
instruction is returned on a fetch (FCHB or FCHP) microorder (macro instruction fetch). The counter register must 
not be ovenwritten while the instruction is still needed. 
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DIRECTLY-ACCESSED REGISTERS (Continued) 



1ST Register: 

The Interrupt Status Register contains information pertaining to tlie interrupt system including mask and enable 
bits. It sets up a priority list of interrupts pending, and allows interrupt bits to be set and and cleared. 

LR Register: 

The Light Register drives 1 6 LEDs and will display the results of the Self-Test Program. 

MAP Register: 

The register referenced by microorder MAP in the microinstruction B or STOR field is a map register located in 
the memory controller. This register is addressed through MPAR (an indirectly-addressed special external 
register in the memory controller). 

MEMR Register: 

The MEMR Register controls memory access. MEMR is the lower eight bits of 16-bits of storage and the upper 
eight bits contain status information. A store to MEMR will not change the status bits. The bits are as follows: 

- 4 MEMR Register map for main memory accesses. Contains number of Data Map if base register is 
enabled (Bit = 0). 

5 MEMR A/B Addressability bit (bit is if memory locations and 1 address A or B registers, respectively). 

6 MEMDIS bit of MEMR. Bit 6 = 1 enables boot memory. 

7 MEMR memory system enable bit. Bit 7 = enables memory access. 

8 Always zero. 

9 Slave-. Logic zero if Slave- signal is asserted on backplane. 

10 Parity Error. Logic one if parity error interrupt is pending. 

1 1 A/B Fetch-. Logic zero if last fetch was from A or B register. 

12 MTO. Logic one if microcode time out occurred. 

13 MIost. Logic one if memory lost on last power down. Valid for 10 msec only after power is up. 

1 4 Power Fail Warning. Logic one if power going down within 5 msec. 

15 TDI. Logic one if interrupts are temporarily disabled. 

BASE Register: 

BASE is the Base Register. When the base register is enabled, all memory references (except FCHP, FCHB, and 
RDPC) use the Data Map. FCHP, FCHB, and RDPC use the Code Map unless the address is in the Base 
Register. If the address is in the Base Register, use the Data Map. The Base Register bits are as follows: 

0-14 Base register value. Value is added to any memory address on base page other than or 1 (A and B 
regs.) when base register is enabled. 

15 If 1 the base register is enabled and if it is disabled. 

Note: The base register is not supported by the RTE-A.1 operating system. If the base register is turned on in a 
microprogram, it must be turned off before completion. 

N-Reglster: 

The N (Index) Register is a 4-bit register used for indirect addressing of the privileged and non-privileged 
processor registers and the special external registers of the memory controller. N is decremented by a special 
microorder DN, and incremented by a special microorder (IN). When N is referenced the upper 12 bits contain 
status information. A store to N will not change them. The bits are as follows: 

- 3 N-Register for indirect and special register addresses. 

4 - 7 Always zero (Not Used). 

8-15 Status bits same as upper 8-bits of MEMR Register. 
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Table 2-1. Computer Functions (Continued) 



DIRECTLY-ACCESSED REGISTERS (Continued) 



P-Register: 

The P (Program Counter) Register generally holds the macro-program counter and is used to fetch the next 
Instruction or to get the 2nd or additional operands of multiple word instructions. It can also be used for general 
purpose reads and writes but the program counter must be saved and restored. P can be incremented by a 
special microorder. 

Q-Register: 

The Q-Register is available as a microinstruction B-field operand. The ALU output is loaded into Q by an SPO or 
SP1 microorder (LDQ). Q is used as the least-significant word in double-word shifts and for some special ALU 
operations. When (Q) is specified in the microinstruction 6 field it is multiplexed with the B bus data to become the 
ALU input; i.e., it is not actually enabled to the B-bus. 

SR-Register: 

The Switch Register stores the settings of the Frontplane digit switches. The bits are designated as follows: 

- 7 Reserved for use by the VCP for start-up option 

8, 9 Available for the user 

10 Reserved for HP microprogram 

11-15 Reserved for use by self test firmware 

T-Reglster: 

Receives returned data from memory or I/O. T is loaded only from a memory read or fetch or from an I/O read and 
it can not be loaded directly by the microcode. 



INDIRECTLY-ACCESSED REGISTERS 



GRIN General-Purpose Non-privileged Register File: 

There are 16 indirectly-accessed general-purpose registers which are accessed through the N-register. They are 
referenced by microorder GRIN in either the microinstruction B field or STOR field . They should only be used as 
"scratch" registers in base-set and user microcodes. 

PRIN Privileged Register File: 

There are 16 indirectly-accessed registers of which several are dedicated for use by the base set. These registers 
are accessed through the N-register and referenced by microorder PRIN in either the B or STOR field of the 
microinstruction. Refer to the paragraphs on the Base Set for information on using these registers. 

SRIN Special-Purpose External Registers: 

These registers are located in the memory controller and communicate with the processor over the frontplane 
bus. They are indirectly accessed by microoder SRIN in the microinstruction B field or the STOR field . The 
register selected is determined by the four low-order bits of the index register (N). The registers are defined as 
follows: 

MPAR: Map address register which can be written to and read. It contains the 10-bit address presented 
to the map RAIVIs for processor access to the map registers. Any read or write to the maps increments 
MPAR. (Bits 10 - 15 are always zero.) 

1 PEL1: F>arity Error Latch is a 16-bit read-only register containing the low 16 bits of physical address 
where the last parity error occurred. It is updated even if parity interrupts are disabled. Addresses are 
latched for both DMA and processor errors. 

2 PEL2: Parity Error Latch 16-Bit read-only register containing the high 8-bits of physical address of the 
last parity error. This address is stored in the low eight bits of the register, and the remaining 8 bits are 
always 0. 
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Table 2-1. Computer Functions (Continued) 



INDIRECTLY-ACCESSED REGISTERS (Continued) 


3 


CIL: Central Interrupt Latch read-only register containing the trap cell address of the last I/O interrupt. 
The microcode uses this address to update the central interrupt register located in the register file 
(controlled by base set microcode). 


4-B 


HP Reserved. 


C-F 


Reserved. Access to the FPP (see Section 11). 
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Figure 2-2. Simplified Microprogram Control Section 
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2-14. SOME DEFINITIONS AND TIMING POINTS 

Some definitions about control and timing will be clarified next followed by a description of the 
computer's interrelated functions and its operation. 

• A micromachine is hardware that executes microinstructions. 

• The microprogram controller always executes "microcoded" microinstructions during 
"microcycles." 

• One microcycle is the time interval required to completely execute a microinstruction. 

• A microinstruction is a 32-bit coded word (code definition is called the microcode) that defines 
specific hardware operations to be performed by the computer. 

• Each microinstruction is composed of at least one, and up to seven microorder fields. Each 
microorder defines a specific operation to be performed in the computer. Some microorders ac- 
complish multiple operations by themselves. 

• A field is a contiguous section of bits of the microinstruction that are decoded into microrders; e.g., 
the ALU field. 

• A word-type is a list of fields that comprise the microinstruction. In this computer there are eleven 
word-types defining the microinstruction formats. 

• Microinstructions physically reside in Control Store and are the basic building blocks of 
microprograms. 

• Segments of microprograms may be called microroutines. 

• A portion of microcode called from a microroutine will be referred to as a microsubroutine. 

Part II of this manual provides specific information on timing that you will need for 
microprogramming. 

2-15. HOW THESE FUNCTIONS INTERRELATE 

All the functions described in the preceding paragraphs are interrelated in an operational sense 
through the microprogrammed operation of the computer. Here are a few points to remember: 

• The computer is always under microprogram control and executing microinstructions when power 
is applied. 

• A microroutine in the base-set fetches Macroinstructions (Assembly language instructions of the 
HP 1000 operation codes set) stored in main memory. Each macroinstruction is interpreted as a 
"pointer" (address) to a microroutine, resident in Control Store, which implements the instruction 
by executing a sequence of microinstructions. 
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• The selected microinstructions are loaded into the Microinstruction Register, and data is directed 
to the appropriate destination by the microprogram invoked. 

A few other points should be considered before examining what Control Store (microprogram memory) 
can accomplish: 

• The Microprogram Control Section decodes each microinstruction into fields, then executes the 
indicated microorders in the proper sequence. 

• Each microorder performs a distinct operation and the microorders are not necessarily related to 
each other in each microinstruction. 

Keep the above points in mind as you read through the following steps of how the Microprogram 
Control Section might operate in a microroutine: 

• The microinstruction in the microinstruction register typically calls for the contents of some 
register to be enabled onto a data/address bus. Then certain "and/or" and "rotate/shift" operations 
of the ALU take place during the microcycle and, at the end of the microcycle, a specified 
destination register is clocked to receive the prevailing data from its input lines. 

• While a jump-to-subroutine microinstruction presently in the microinstruction register is being 
executed, the Stack Pointer is incremented to supply the current address plus one to the 
microaddress stack and following a return from subroutine, this new address will be used to load 
the microinstruction register in the next cycle. 

• Several "branch-on-test" microsubroutines are available (e.g., conditions of carry, the sign, a zero 
result, presence of a particular bit, etc.) that provide branches to microroutines designed to react to 
the condition. 

• Just prior to microprogram completion, fetching of the next instruction is begun from the currently 
executing microprogram. There is usually a return to the return address of the microsubroutine 
stack as specified by the microroutine. Fetching of the next macroinstruction is completed after the 
address return. 

Do not be concerned if the details of microprogram control are not clear to you at present. You will gain 
more knowledge and understanding of computer operation as you learn the microprogramming 
language by reading through this manual and writing microprograms. Some further points: 

• If the microprogram execution time exceeds the interval between pending interrupts allowed by 
your particular system application, the interrupts can be lost. Your microprogram must be written 
to test for pending interrupts if it takes a large amount of time. 

• When a pending I/O interrupt is detected, the hardware latches and prioritizes this interrupt with 
other interrupt sources. Other interrupts are internal to processor operation and take higher 
priority positions. The microcode interrupt service routine is invoked which services the pending 
interrupts in prioritized order. 
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2-16. CONTROL STORE 

In a general way, you can look at control store as being devoted to serving three areas: 

• The computer base set. 

• HP microprogrammed accessories (WCS, PCS, and FPP). 

• Future HP enhancements (the user can use this area with the reservation that HP may reclaim 
part or all of it for future firmware packages that may be released). 

• The user microprogramming area. 

All 16,384 addressable (32-bit) words of control store are logically partitioned into Ik-word modules. 
Figure 2-3 shows the control store map (represented in Ik word separations) and it identifies the areas 
of usage listed above. Notice that the Ok- and Ik-word modules are dedicated to the standard base set. 
The 4k- and 5k-word modules are used for present HP accessories, and 8k- through 1 Ik-word modules 
are for future HP enhancement firmware but may be used by the user with this reservation. The 
remaining control store modules of 12k- through 15k- words are reserved for additional microprograms 
written by you. 



CONTROL MEMORY 
ALLOCATION 


MODULE 


ADDRESS 
(HEXADECIMAL) 


DECIMAL 


SOFTWARE 
ENTRY POINT 


NUMBER 

OF USER 

POINTS 


HP BASE SET 


Ok 

Ik 


0-3FF 
400 - 7FF 


00000-01023 
01024-02047 


YES* 
YES* 


— 


HP RESERVED 


2k 
3k 


800 - BFF 
COO - FFF 


02048-03071 
03072-4095 


YES- 
YES* 


— 


HP RESERVED, SIS.VIS.FPP 


4k 
5k 


1000 - 13FF 
1400 - 17FF 


04096-05119 
05120-06143 


YES* 
YES* 


— 


HP RESERVED 


6k 
7k 


1800 - 1BFF 
1 COO - 1 FFF 


06144-07167 
07168-08191 


NO 
NO 


— 


HP RESERVED/USER 


8k 

9k 

10k 

11k 


2000 - 23FF 
2400 - 27FF 
2800 - 2BFF 
2C00 - 2FFF 


08192-09215 
09216-10239 
10240-11263 
11264-12287 


YES" 
NO 

YES** 
NO 


16** 
16" 


RESERVED FOR USER 


12k 

13k 
14k 
15k 


3000 - 33FF 
3400 - 37FF 
3800 - 3BFF 
3C00 - 3FFF 


12288-13311 
13312-14335 
14336-15359 
15360-16383 


YES 
YES 
NO 
NO 


32 
32 


* HP use only. 
*■ May be used for HP future fir 


mware packages 


. 









Figure 2-3. Control Store Map 
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2-17. DESCRIPTION OF THE BASE SET 

A listing of the complete base set, including the JTAB microorder Jump Table, is provided in Appendix 
E. An overall description of the base set is given below. 

The base set microroutines are good examples of microprogramming techniques you may use as a 
guide for writing your microprograms. Also, you may want to use some of these microroutines in your 
microprograms as utility microroutines. HP recommends that the user places a copy of any base set 
subroutines to be used in the user's control store space. DO NOT JUMP INTO THE HP BASE SET. 
This is because HP reserves the right to modify their base set routines. 

The base set microroutines provide you with the capability to execute all the base set instructions 
described in the HP 1000 A700 Computer Reference Manual , part no. 02137-90001. In the base set are: 

• Microroutines to execute instructions in the following groups: 

- Memory Reference - Floating Point (Without FPP) 

- Alter-Skip - Dynamic Mapping System 

- Shift-Rotate - Double Integer 

- Input/Output - Language Instruction 

- Extended Arithmetic - Operating System 

• Microroutines that 

- Execute the built-in firmware diagnostics 

- Initiate the macrocoded self test 

- Handle interrupts. 

- Fetch indirect operands. 

• Some typical operations performed by the base set microprogram include: 

- A power-up sequence. 

- A short diagnostic check of the processor and memory controller 

- A read/fetch operation to execute an instruction, then fetch the data to perform an ALU 
operation, and finally storing the data in a register. 

- A write operation (e.g., writing the incremented value in an ISZ instruction). 

- I/O operating routines; e.g., processor-initiated transfers or device initiated transfers of data to 
perform an ALU operation, and finally storing this data into a register. 

The timing relationships involved in operations such as the above mentioned typical operations are 
covered in Section 5 of this manual. 
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2-18. OPERATIONAL OVERVIEW 



The following paragraphs provide an overview of how the Microprogram Control Section performs 
several operations in parallel in the base set. The references to example addresses are given in 
hexadecimal. The microroutines for the HP 1000 Assembler instruction codes (macroinstructions) 
illustrate several techniques that you should be aware of to effectively execute your own 
microprograms. You may find it helpful to refer to the functional block diagreun in Appendix F for 
assistance in understanding these operations. 

2-19. INSTRUCTION DECODING LOOPS 

Most of the time the processor is executing in a microcoded loop that decodes macorinstructions. This 
loop (called the JTAB loop) is entered through microinstructions that have the JTAB microorder in the 
op code (operation code) field. There are two JTAB loops in the &CONTROL section of the base set 
firmware as follows: 

a. Normal macroinstruction decoding that is entered when bit 11 of the switch register (SR register) 
is closed (logic "0"). There are two microinstructions in this loop: the first with the JTAB 
microorder, and the second for a branch return if there are no interrupts pending. 

b. Diagnostic JTAB loop that is entered when bit 11 of the switch register is open (logic "1"). It 
contains the same microinstructions as in the normal JTAB loop but information is placed on the 
Y-BUS during additional microinstructions so that the information can be input to frontplane 
pinouts. 



2-20. MACROINSTRUCTION FETCHING 

Macroinstruction fetching is the operation which obtains the "next" instruction to be executed from 
main memory. In this computer, a "look ahead" technique is used for this process. That is, fetching is 
begun while simultaneously completing the execution of the "current" instruction; and fetching is 
completed while preparing for execution of this "next" instruction. This is accomplished by starting 
the fetch operation using the FCHB or FCHP microorder just prior to termination of the "currently" 
executing instruction microroutine. When the fetched instruction is returned from main memory to 
the T-register, it will also be stored into CT. 

For illustrative purposes, suppose that the "currently" executing microroutine is for an XOR instruc- 
tion (that had been obtained from main memory location octal 2000). The P-register has already been 
incremented so that as the microroutine for XOR is completing its execution, the fetch (FCHP) is 
initiated for main memory location 2001. (Assume that with the completion of the XOR execution, an 
augend is left in the A-register and that at main memory location 2001 there is an ADA 
macroinstruction.) 

Upon termination of this "current" macro instruct ion's routine, control passes to a microroutine in the 
control firmware of the base set. 

The microroutine of the control firmware checks for an interrupt condition, and then branches to the 
microinstruction containing the JTAB microorder. ("JTAB" means "jump table", and is the microorder 
that begins instruction decoding.) 
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The "JTAB" microinstruction increments the program counter, clears a general-purpose flag, and 
begins a memory access of an MRG address if the instruction loaded in the CT is a memory reference 
group instruction. In this manner of "look ahead" fetching, the overhead required for instruction 
fetching is minimized. User microprograms must be designed to terminate in a similar manner. 

The JTAB microorder causes the current microaddress plus one to be saved on the microstack. The last 
result of this multi-functioned microinstruction is that the next sequential microaddress executed will 
come from locations 100-lFF (hex), and this look-up table entry point is a function of the 16 bits of the 
macroinstruction . 

In the example being used, an ADA instruction from main memory location 2001 has been stored in 
the instruction register CT and an operand address (assume the address is 300) has been formed in the 
memory generation logic. The read operation, initiated at the beginning of the JTAB microsubroutine, 
obtains the operand (the addend) for the ADA instruction from main memory location 300 but the 
information has yest to arrive in the T-register. 

Note that after the program counter is incremented in the JTAB microsubroutine, the program 
counter points to the location after the opcode. If the instruction is a one-word instruction (such as the 
CAX instruction), then the the microroutine for that instruction can simply do a "FCHP, RTN" to 
complete. If additional words or addresses are needed by the instruction (such as the DEF after the 
LDX instruction), the microroutine for that instruction can begin a memory read using the "RDPC" 
microorder. 

You can see in these examples that it is the microprogrammer's responsibility to complete the 
instruction with the program counter pointing to the next opcode, begin the fetch, and return to the 
control firmware. 

In the example being used, the operand address (300) formed in the address generation logic is used to 
read the operand (addend) for the ADA instruction. The ADA microroutine adds the addend to the 
augend in the A-register, and in the same cycle begins the next instruction fetch. 
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2-21. MACROINSTRUCTION EXECUTION 

Execution of the macroinstructions (assembly language instructions) is carried out by the specific 
microoders contained in the individual microinstructions of the appropriate microroutines as they are 
decoded from the MIR. 

In the example being used, recall that before the operand address (octal 300) was formed in the 
Address Generation Logic it contained address 2001 (the address of the ADA instruction) and the P 
register contained 2002 if the rules stated above are followed. Now the content of P is incremented by 
one due to the JTAB microinstruction line (contains microorder IP). Thus P is adjusted to 2003 in 
preparation for the fetch (FCHP) operation that will be initiated as the microroutine for the ADA 
instruction (from main memory location 2001) is being executed. 

Again, using the ADA instruction as an example, the microinstruction for the ADA immediately 
begins a fetch operation from the main memory address (2002) in the program counter (in the 
"look-ahead" manner previously described) to obtain the next macroinstruction. 

The operand is moved from main memory to the A-register in the following way: Recall that the 
microsubroutine called by JTAB has already begun a read operation if the instruction was an MRG 
instruction. This read operation gets the ADA operand from main memory (via the T-register), places 
it on the B-bus, and the ALU adds the contents of the T-register to the A-register (which is specified in 
the A-bus field) and stores the result in the A-register. If a carry results, the E-bit is set; if two's 
complement arithmetic overflow results, an 0-bit is set. The setting of the E and O bits are enabled 
using the "ENOE" microorder in the SPO field. 

The last result of this microinstruction for the ADA macroinstruction is to return to the control 
firmware from the address saved on the microstack by the JTAB microsubroutine, using a "RTN" 
microorder. 

To summarize, the main points you should remember from the above operation description are the 
following: 

• A fetch operation begins in a "look-ahead" manner while the execution of the previous instruction 
is carried out. Once a branch to your microprogram is made, it is possible for you to stay in the user 
microprogramming area until it is desired to return to the fetch microroutine. Before returning, 
however, you should terminate your microprogram properly. 

• In regard to the length of time your microprogram executes, it should be written so that interrupts 
cannot be lost and computer operation will not be suspended. The processor contains a "watchdog" 
timer that will abort your microroutine if an interrupt is not serviced within 10 milliseconds. 
Therefore, your microprogram should not be allowed to run more than 10 milliseconds. 

Interrupts examples were not included in the operational overview of this section since they are 
covered in Part II of this manual. 
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PART II 

Microprogramming Methods 



MICROPROGRAMMING 
PREPARATION STEPS 



SECTION 



When you are ready to begin microprogramming, there are certain initial steps which are necessary to 
prepare your RTE operating system so that it will accept the microprogramming environment. These 
steps have to do with the available hardware and software in your computer which includes the 
following: 

• Installation of additional control store memory "hardware" for the storage of your microprograms. 
This would be either WCS, PCS, FPP, or a combination of these. 

• Installation of microprogramming support software for microprogram development, HP 92045A 
Microprogramming Package. (This software is not needed for running the microprograms.) The 
software package includes the MPARA paraphraser microprogram assembler, and the WLOAD 
WCS card loader and PROM burn program. 

• The ID.41 driver (also part of the HP 92045A microprogramming support package) is needed for 
the WCS. ID.41 is in the set of drivers that is loaded at system generation time. 

The RTE Microprogramming Support Software package operates in the RTE-A.l operating system 
environment. Microprograms may also be developed in the RTE-6/VM environment using MPARA. 



3-1. MICROPROGRAMMING HARDWARE 

The HP 12 153 A Writable Control Store (WCS) Kit is the recommended hardware for microprogram 
development and it, of course, can be used for normal execution of your microprograms in your 
application environment. Each WCS card contains 4k-words of control store. 

The other available cards to extend the computer's control-store capacity are the HP 12155A PROM 
Control Store (PCS) card and the HP 12156A Floating Point Processor (FPP) card. These cards cannot 
be used for development since the microprograms must be "burned" into PROMs. Therefore, the usual 
practice is to have a WCS card for development and, after the microprogram has been debugged, 
PROMs are "burned" and then installed on the cards. The PCS card can have up to 8k-words of control 
store and the FPP card can have up to 4k-words of control store. 

In this computer the WCS and PCS cards are installed in contiguous backplane slots below the lower 
processor card. Up to four cards total of WCS and PCS or other firmware accessory (such as an HP 
12156A floating point processor) in any combination can be installed. The maximum address is 
16k-words; therefore, it is possible to install more cards than can be addressed. (The FPP card is 
installed between the processor cards.) 

The WCS card after microprogram development could be replaced with a PCS card for permanent 
programs. The WCS card is both an I/O card communicating over the backplane for user access to read 
and write microcode and a processor writable control-store card communicating over the frontplane. 
The PCS card communicates with the processor only over the frontplane (its backplane connection 
provides only power and the address priority chain). 
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WCS cards can be enabled and disabled over the backplane by an OTA 32 instruction (sign bit of A=l 
for ON and A=0 for OFF). When it is enabled or ON, the WCS card functions as an extension of the 
processor's control store and the user cannot access data over the backplane. When it is disabled or 
OFF, the control store addresses are ignored and the user can access the card through the backplane. 

NOTE 

Any PCS card can contain optional HP supplied firmware sets, as 
well as user-generated PROM firmware. 

When WCS cards are in operation the processor continually loads the next microaddress onto the 
control store address bus. The card addresses are in Ik-word by 32-bit modules. The WCS and PCS 
cards are prioritized so that each card recognizes only its block of control-store addresses, and a 
priority chain assures that only one card is driving the control-store data bus at any one time. The 
processor control store and any PCS cards are at the bottom of the priority chain and will drive the 
control-store bus only if no other device is driving it. 

Each PCS card provides eight Ik-word modules of "read only memory." The address block of each 
module is set by svatches on the card. Each address block also has a switch to disable the block. 

Since WCS cards can be turned off and on for backplane or firontplane operation, respectively, a WCS 
card and PCS card can have the identical address blocks. 

Typically, a WCS card will be placed in the backplane in a lower priority slot than a PCS card so that it 
will have a higher frontplane priority (backplane and frontplane priorities are opposite in priority 
sequence). The higher priority is necessary if you are going to overlap the addresses. In this case, when 
the WCS card is on (frontplane enabled), its higher priority will accept the address and disable the PCS 
card. If the WCS card is off, the PCS card will accept the address. If the PCS card has the higher 
priority, the opposite operation occurs. 

The operational states, hardware supplied, PROM installation, and installation guide lines for WCS 
and PCS cards are contained in the HP 1000 A700 Computer User Control Store Installation and 
Reference Manual, part no. 02137-90003. 



3-2. MICROPROGRAMMING SUPPORT SOFTWARE 

In order to develop and run microprograms in a dynamic manner in the RTE operating environment 
you will need the HP 92045A RTE-A Microprogramming Support Software Package which includes 
the following: 

• MPARA microassembler program 

• WCS I/O and PROM Burn Utility Routine WLOAD 

• ID.41 WCS driver 

These programs and the WCS driver are described below. 
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3-3. THE PARAPHRASER MICROCODE MICROASSEMBLER 

The paraphaser microcoding microassembler language converts a source microprogram into binary 
object code which may be directed to an output device and/or stored in a disc file. The paraphraser is a 
necessary tool for preparing microprograms since the microinstruction word length is 32 bits which 
makes other coding methods difficult. 

The source may be input from an input device or disc file. The disc file is easiest since this file can be 
the same file developed when writing and editing the program with the HP 1000 Editor. The object 
code will be in the standard microinstruction format which is recognized by the WLOAD utility 
routine. The program can supply a source listing, a floating field listing of the microinstructions, a 
label listing, and a list of any errors. 

The paraphraser program name is MPARA. MPARA can run with or without the File Manager, and it 
requires a minimum of 28k words of memory. All information on preparation of microprograms with 
the paraphraser and output of the microprograms is contained in Sections 7 and 8 of this manual. 



3-4. DRIVER ID.41 

Driver ID.41 must be configured into the RTE system during system generation to provide software 
linking between MPARA, WLOAD, and the WCS card. 

NOTE 

The microprogramming support software can be included either 
during system generation or loaded into the system when 
required. 

Driver ID.41 drives HP 12153A WCS cards for reads and writes (from and to main memory) and allows 
control of WCS board functions. The driver utilizes DMA which provides fast data transfer. 

When configured in the RTE system, all WCS cards should have a select code of octal 20 or higher. In 
the system, the driver can be called directly with an EXEC call, or through the WLOAD program 
(refer to the RTE Driver ID.41 For HP 12153A WCS Cards Reference Manual). 



3-5. WLOAD 

The WCS I/O Utility program WLOAD uses driver ID.41 and transfers microprogram object code into 
WCS when run by the user. Section 9 in this manual contains information on WLOAD used as an I/O 
utility. WLOAD also includes a PROM "burn tape" function (see paragraph 3-7). 



3-6. LOADING THE MICROPROGRAMMING SUPPORT SOFTWARE 

The microprogramming support software can be loaded during system generation or on line, using 
RTE LINK. The exception to this is the driver ID.41 which can be loaded only at system generation 
time. (Refer toRTE Driver ID.41 For HP 12153A WCS Card Reference Manual, part no. 92045-90002.) 
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3-7. PROM CODE GENERATOR 

The process of loading the microcode into the PROMs (Programmable Read Only Memory) is ac- 
complished for fusing ("burning") the binary bits into the PROM chip. The binary code for the PROMs 
is generated by the PROM "burn tape" function of WLOAD that uses the final binary object code of the 
microprogram as input. The program should be tested and debugged by running the program from a 
WCS card before making expensive PROMs. For additional information on PROM burning, refer to 
Section 10 of this manual. 



3-8. PREPARATORY STEPS 

Condensed information on the required preparatory steps for microprogramming appear in Table 3-1 
along with references to the sections of this manual (or to applicable documents). The letters in the 
referenced column are keyed to entries in Table 3-2, and the numerals refer to sections in this manual. 

Table 3-2 is a list of HP 92045A Microprogramming Software and HP manuals used by the 
microprogrammer for the HP 1000 A700 computer systems. Section 12 provides examples of the 
procedures you may want. 

In preparation for microprogramming, the WCS cards to be used must be initialized before they can be 
used. 



3-9. DEBUGGING MICROCODE 

After you have written your source microcode and fixed any errors found by MPARA, load the object 
code into WCS and try running it. If its performance is not to your satisfaction you will want to 
"debug" it. Microcode debugging on the A700 processor is most efficiently accomplished through the 
use of a logic analyzer. Hewlett-Packard logic analyzers are recommended since they were used 
throughout the development of the base set and floating point microcode and provided the desired 
results. 

A logic analyzer allows the actual micromachine execution to be followed, and it can be programmed to 
trace the micromachine execution upon detection of certain conditions. Details on connecting a logic 
analyzer and informiation on its use are given in Appendix G (Debugging Microcode). 
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Table 3-1. Preparatory Steps 



STEP 


TASKS 


REFERENCE 

(Table 3-2 or 

manual sects.) 


1 


Establish your microprogramming goal. Develop your own microprogram or 
try one of the examples first. For example, run a short microprogram from 
start to finish by referring to Section 12. 


1, 12, F 


2 


Become familiar with the computer and steps to microprogramming (hard- 
ware, control memory mapping). 


2, 3, 5, 6, A 


3 


Establish control memory module and mapping scheme. 


2, 6, F 


4 


Plan, develop, and write first-pass microprogram (or if desired, a simple 
sample program). 


4, 7, 8, 12, M 


5 


Plan, develop, and write main memory linking method. 


6, 12, L 


6 


Place RTE system off-line and power down if not already in this state. 


A 


7 


Install the optional control store cards: 12153A WCS, 12155A PCS, and 
12156A FPP, 


A, B, D, E 


8 


Generate and configure the RTE system. The WCS dhver ID. 41 should be 
found on your primary system disc. 


H 


9 


Load the necessary microprogramming support software from the following 
list into your disc files from the primary system disc. 

— WLOAD 

— MPARA Paraphraser fvlicroassember 


3, C, D, 1, J, K 


10 


Microassemble your source with the paraphraser. 


8, J, F 


11 


If necessary, correct errors at the source using WCS, HP EdiflOOO and 
microassemble again. 


1, 8, 9, C, M 


12 


Load main memory program that links to microprogram. 


C 


13 


Execute microprogram from main memory. 


8, 9, C 


14 


Correct any logical errors found during microprogram execution. (Fix the 
source using Edit/1000.) 


8. 9, C, M 


15 


If you are planning to "burn-in" PROMs, you must do so from a corrected 
microassembled object program. Correct source and microassemble until the 
final object code is obtained. Go to step 16. 

OR 

If going to use dynamic microprogramming and your microprogram executes 
properly, it can be used through WCS. Development is complete at this point 
unless this was an example program. 


8, 9, C, M 


16 


To prepare mask code, run WLOAD PROM code program. 


10, K 


17 


Burn PROMs from binary code cartridge tape. 




18 


Mount PROMs on HP 12155A PCS card, test microprogram. 


C, L 
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Table 3-2. Manual and Software References 



REFERENCE 
(from Table 3-1) 



A 
B 
C 
D 



F 
G 
H 
I 

J 
K 
L 
M 



MANUAL OR SOFTWARE 



HP 1000 A700 Computer Reference Manual, part no. 02137-90001. 

HP 1000 A700 Computer Installation and Service Manual, part no. 02137-90002. 

Your System Programmer's Reference Manual, part no. 92077-90007. 

HP 1000 A700 User Control Store Installation and Reference Manual, part no. 
02137-90003. 

HP 12156A Floating Point Processor Kit Installation and Reference Manual, part no. 
12156-90001. 

HP 92045A Microprogramming Package Reference Manual, part no. 92045-90001 . 

RTE Driver ID.41 for HP 12153A WCS Card Reference Manual, part no. 92045-90002. 

RTE-A.1 General Information (gives guide to system generation) part no. 92077-90006. 

WLOAD WCS I/O Utility Routine (on primary disc). 

MPARA Paraphraser (on primary disc). 

PROM Code Generator function In WLOAD (on primary disc). 

MACRO/1000 Reference Manual, part no. 92059-90001. 

Edit/1000 Users Guide, part no. 92074-90001. 
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MICROINSTRUCTION FORMATS 



SECTION 



Since microprogramming involves the micromachine's interpretation of the microinstruction word, it 
is essential that the microprogrammer understand the binary structvu-e of the microinstruction and 
how the paraphraser is used to automatically microassemble the microinstruction into the proper 
format. 

In this section you will find the following information: 

• The microinstruction word types. 

• The 32-bit microinstruction field divisions of each word type. 

• The definitions and uses for all microorders. 

Additional information that you will need to know is covered in Section 7 and Section 8. 

4-1. MICROINSTRUCTION BINARY FORMAT 

The HP 1000 A700 computer microinstruction word is made up of fields where each field has a 
particular definition. A field may contain no more than one microorder. A microorder causes the 
micromachine to carry out one or several machine operations. The definition of the number of bits in 
each field and the names of the fields is called the microinstruction format. Figure 4-1 shows the 
binary structure of the microinstruction word types. 

The binary format gives the order of bits of the microinstruction after it has been assembled by the 
paraphraser microassembler language. The microprogrammer does not have to know how many bits 
are in each field but he does have to know the definitions and the operations of the microorders 
contained in the fields. This is because the paraphraser microassembler correctly formats the 
microinstructions from your source program which can be written in a "format free" style. 



4-2. DEFINITION OF WORD TYPES 

The HP 1000 A700 computer has a microword of 32 bits and six different Word Types. These word 
types have subsets (or special word types) that impose certain restrictions on the microorders used in 
them. The Word Types are distinguished from each other by the Operation (OP) Field; i.e., the 
micromachine will decode the microinstruction according to the contents of the OP Field. 

In addition, word types 1 through 5 are interpreted as special word types IS through 5S if the ALU 
field is coded with SPEC (Special). The special word types have certain subroutine operations coded in 
the field used for SPO/SPl in word types 1 through 4. For the special microorders this field is labeled 
ALUS (ALU Special); e.g., as shown in Figure 4-1. 
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•Special microorder in ALUS field when ALU field is coded SPEC. 

^^°°"'* Figure 4-1. Microinstruction Word-Type Binary-Format Summary 
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4-3. WORD TYPE 1 

Word Type 1 allows ALU functions to be performed with full capability in A, B, STOR and Special 
Fields. The A-Bus and B-Bus fields specify the registers enabled onto the corresponding bus. These 
registers are to be operated on by the ALU as specified in the ALU field. The resultant data is stored in 
the register specified in the STOR field. Special Fields zero and two (SPO and SP2) can be used to 
perform additional operations. 

The OP Field of this word type may contain the JTAB (Jump Table) microoder which is the instruction 
to jump to the entry point "look up" table. The "look up" table provides the destination address where 
the subroutine to be executed begins. The subroutine is specified in the ALU field. 

The OP Field may contain microorder RTN (Return) which is the unconditional retiu-n from a 
subroutine to an address on top of the microinstruction stack. A NOP (No Operation) in the OP Field 
will cause the next sequential microorder to be executed. 

Word Type 1 microorders are the following: 

FIELD MICROORDERS 

OP NOP, JTAB, RTN 

A-BUS Any A-Bus source. 

SPO Any SPO microorder (except STOR). 

SP2 Any SP2 microorder (jump modifiers, CT30 and CT74, cannot be used). 

ALU Any ALU microorder. 

B-BUS Any B-Bus source. 

STOR Any STOR destination. 
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4-4. WORD TYPE 2 

Word Type 2 is equivalent to Word Type 1 except that the SP2 field is replaced by the CONDITION 
CODE (CNDX) Field. The OP field determines the conditional operation to be performed if the 
condition is true or false as specified. 

The OP Field microorder selects the address for continuation after the specified condition is checked: 
RTNT (Return l?rue) and RTNF (Return False) cause a return to the address at the top of the 
microroutine stack if the condition in the CNDX field is true or false, respectively. SPOT (SPO True) 
and SPOF (SPO False) causes the microorder in the SPO field to be executed only when the condition 
specified is true or false, respectively. Following this operation, the next sequential microorder will be 
executed. 

Word Type 2 microorders are the following: 

FIELD MICROORDERS 

OP RTNT, RTNF, SPOT, SPOF 

A-BUS Any A-Bus source. 

SPO Any SPO microorder (except shifts and LDQ cannot be used with SPOT or SPOF). 

CNDX Any CNDX field condition. 

ALU Any ALU function (Special ALU operations can not be used with SPOT or SPOF). 

B-BUS Any B-BUS source. 

STOR Any STOR destination. 
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4-5. 



WORD TYPE 3 



Word Tjrpe 3 is similar to Word Type 2 but it is used for conditional branching where the destination 
address (given in the Address Field) is within the current 64 word block of micromemory. If the current 
microinstruction is in the last location of a 64 word block (ends in 3F hex), then the branch, if it is to 
occur, will be to the next 64 word block instead of the current one. Since the A-BUS Field is not 
available in Word Type 3, the A-BUS defaults to the accumulator (ACC or R4 of the register file. The 
SPl Field is the only special field available which is a subset of the SPO Field. 

In the OP Field, JMPT (Jump True), JMPF.(Jump False), JSBT (Jump Sub True), and JSBF (Jump 
Sub False) jump to the destination address if the condition in the CNDX field is true or false, as 
appropriate. For the "Jump Sub" microorders, the jump is to a subroutine at the destination address 
and the current address +1 is pushed onto the microsubroutine stack and the stack pointer is 
incremented. 

Word Type 3 microorders are the following: 

FIELD MICROORDER 

OP JMPT, JMPF, JSBT, JSBF 

ADDRESS Destination address in current 64 word block. 

SPl Any SPl microorder. 

CNDX Any CNDX Field condition. 

ALU Any AfciU function. 

B-BUS Any B-BUS source. 

STOR Any STOR destination. 

4-6. WORD TYPE 4 

Word Type 4 is similar to Word Type 3 except that the branch is made unconditionally. This allows the 
use of the SP2 Field along with the SPl Field. As in Word Type 3, if the current microinstruction is in 
the last location of a 64 word block, then the branch will be to the next 64 word block. The A-BUS 
defaults to the accumulator (ACC or R4 of the register file). 

The OP Field may contain either JMP (Jump) or JSB (Jump Sub) for jumping to the destination 
address or to a subroutine address at the destination address, respectively. 

Word Type 4 microorders are the following: 

FIELD MICROORDERS 

OP JMP, JSB 

ADDRESS Destination address in current 64 word block. 

SP2 Any SP2 microorder. 

SPl Any SPl microorder. 

ALU Any ALU function. 

B-BUS Any B-BUS source. 

STOR Any STOR destination. 
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4-7. WORD TYPE 5 

Word Type 5 is used to perform an unconditional branch to any location in the 16k-word control store. 
The A-BUS Field defaults to the accumulator (ACC or R4 of the register file). 

The OP Field microoders may be either JMPL (Jump Long) and JSBL (Jump Sub Long) where JMPL is 
a jump to the destination address, and JSBL is to the subroutine at the destination address. In both, a 
jump modify can be specified by coding SPEC in the ALU field which will cause the lower four bits of 
the destination address to be replaced by the lower four bits of the Instruction Register (Register CT). 

Word Type 5 microorders are the following: 

FIELD MICROORDERS 

OP JMPL, JSBL 

ADDRESS Destination address anywhere in the 16k-word control store. 

ALU Any ALU function (SPEC will cause a jump modify operation equivalent to CT30). 

B-BUS Any B-BUS source. 

STOR Any STOR destination. 



4-8. WORD TYPE 6 

Word Type 6 is used for enabling immediate data onto the A-BUS. The OP Field for this word is IMM 
(Immediate Data). 

Its microorders are the following: 



FIELD 

OP 

IMM 
ALU 
B-BUS 
STOR 



MICROODERS 

IMM 

Immediate data to be placed on the A-BUS. 

Any ALU function except SPEC. 

Any B-BUS source. 

Any STOR destination. 



The Word Types and their fields are summarized in Table 4-1. 



4-6 



Microinstruction Formats 



Table 4-1. Summary of HP 1000 A700 Computer Word Types 



TYPE 


FIELD1 


FIELD2 


FIELDS 


FIELD4 


FIELDS 


FIELD6 


FIELD? 


1 


OP1 


ABUS 


SPO 


SP2 


ALU 


BBUS 


STOP 


2 


0P2 


ABUS 


SPO 


CNDX 


ALU 


BBUS 


STOR 


3 


0P3 


ADRS 


SP1 


CNDX 


ALU 


BBUS 


STOR 


4 


0P4 


ADRS 


SP1 


SP2 


ALU 


BBUS 


STOR 


5 


OPS 


ADRL 






ALU 


BBUS 


STOR 


6 


0P6 


DAT 






ALU 


BBUS 


STOR 


1S 


0P1 


ABUS 


ALUS 


SP2 


SPEC 


BBUS 


STOR 


2S 


0P2 


ABUS 


ALUS 


CNDX 


SPEC 


BBUS 


STOR 


3S 


0P3 


ADRS 


ALUS 


CNDX 


SPEC 


BBUS 


STOR 


4S 


0P4 


ADRS 


ALUS 


SP2 


SPEC 


BBUS 


STOR 


5S 


OPS 


ADRL* 






SPEC* 


BBUS 


STOR 


*Go to microinstruction table for microorder long branch jump (lower 


four bits of destination address replaced by 


bits 3-0 of CT). 







4-9. ARITHMETIC DATA PATHS 

The micromachine is based on a three-address architecture. The microinstruction can specify an A-Bus 
operand and a B-Bus operand. The resultant Y-Bus data is stored into a location specified in the STOR 
field. The A-BUS operand can be either a register in the register file specified in the A-Bus Field or 
Immediate Data from the microinstruction. The B-Bus operand is specified in the B-Bus Field and can 
come from the register file or from other dedicated registers in the processor. The A and B Buses are 
operated on by the ALU. ALU output data (F-Bus) is passed to the Y-Bus, with or without shifting, and 
stored into a processor register or written to main memory as specified in the STOR Field. A data path 
external to the ALU is used for byte manipulation and ASG or SRG instructions. 



4-10. ALU FUNCTIONS 

The ALU functions are divided into two categories: 

1. Standard ALU operations which are coded in the ALU field and can be combined with a shift in the 
SPO or SPl field. 

2. Special ALU operations performed when SPEC is in the ALU field. The SPO or SPl field becomes 

the ALUS field that is used to indicate which Special operation to perform. 
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4-11. STANDARD ALU FUNCTIONS 

The standard ALU functions can be divided into two types: Arithmetic and Logical. 

The arithmetic (jperations are true two's complement add or subtract functions. They are always 
performed with (jither a carry or borrow. For add operations the carry-in normally defaults to 0, but 
can be forced to a 1 with a special microorder (FCIN). For subtract operations, the borrow is the 
complement of the "carry-in." "Carry- in" normally defaults to 1 for subtract, but can be forced to with 
a special microorder (FCIN). For all arithmetic operations CF (Carry Flag) and ALOV (ALU Overflow) 
will be updated with the ALU results. 

The logical operations are performed as a bit-by-bit logical function on the A-Bus and B-Bus. Since 
logical operations will not generate a carry or overflow, CF and ALOV are always cleared at the end of 
the microcycle except for the microorder ZERO. ZERO, which forces the output of the ALU to all zeros, 
will disable the update of the following conditions during the current cycle: CF, ALOV, SF (Shift Flag), 
YZ (Y-Bus zeros), and Y15 (Y-Bus bit 15), and B15 (B-Bus bit 15). 

4-12. SPECIAL ALU FUNCTIONS 

When SPEC is in the ALU field, two types of ALU operations can be performed: Internal ALU Specials 
(arithmetic) and External ALU Specials (logical). The Special ALU operation is coded in the ALUS 
(ALU Special) field. 

The Internal ALU Specials are a group of operations provided by the ALU which can be used for 
multiply, divide, and floating point algorithms. Each function may include an arithmetic operation 
and a shift. The conditions CF, ALOV, YZ, and SF may be used to represent different conditions for 
ALU Specials than for Standard arithmetic functions. 

The External ALU Specials are performed external to the standard ALU. (The standard ALU executes 
all the ALU operations described in paragraph 4-11.) The external ALU Specials include byte 
swapping and masking, a four-bit left rotate and bit manipulation used for ASG and SRG emulation. 
All these operations are logical operations, so CF and ALOV are cleared. The four-bit left rotate (RL4) 
will not affect the Shift Flag (SF). 

For a detailed description of these functions, see the microorder definitions for ALUS in Table 4-2. 
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Table 4-2. Microorder Definitions 



MICRO- 
ORDER 



DEFINITION 



WORD TYPE 1 : OP FIELD 



JTAB 



NOP 



RTN 



Meaning: A Jump to subroutine will occur. The Entry Point Look-Up Tables provide the lower 8 
bits of the destination address which is vectored into the microaddress space between 1 00-1 FF 
(hexadecimal). The current address +1 is pushed onto the stack and the stack pointer is 
incremented. Normally, JTAB will only be used to begin execution of a microroutine after a 
fetch microorder has been executed so that the instruction will be loaded into T and CT 
registers. Since JTAB will also initiate the execution of MRG instructions, it should be coded as 
follows for correct operation: 

0P1/JTAB SPO/NOP SP2/IP ABUS/B ALU/ADAC BBUS/T STOR/CWRB 

(The CWRB in the STOR Field may not actually occur). JTAB will always cause the B-Bus to 
be read as if it is an MRG Instruction; i.e., it will resolve the MRG address. JTAB will always 
clear the double word bit (DW) and the temporary interrupt disable (TDI). Since the ALU 
function is ADAC and there is no carry-in, CF and ALOV will be cleared at the end of the cycle. 
The MA register is loaded (with the resolved MRG address) on every JTAB. 

JTAB forces the SPO, A and STORE fields to what would othenwise be coded on the first 
microinstruction of an MRG instruction: 



INSTRUCTION 


CT15-11 


SPO 


A 


STOR 


AD* 


X100X 


RDB 


CAB 


NOP 


AND 


X0010 


RDB 


CAB 


NOP 


CP* 


X101X 


RDB 


CAB 


NOP 


lOR 


X0110 


RDB 


CAB 


NOP 


ISZ 


X0111 


RDB 


CAB 


NOP 


JMP,I 


10101 


RDB 


CAB 


NOP 


JMP,D 


00101 


FCHB 


CAB 


NOP 


JSB,I 


10011 


RDB 


CAB 


NOP 


JSB,D 


00011 


NOP 


CAB 


NOP 


LD* 


XII OX 


RDB 


CAB 


NOP 


sr 


X111X 


NOP 


CAB 


CWRB 


XOR 


X0100 


RDB 


CAB 


NOP 


Non-MRG 


XOOOX 


NOP 


CAB 


NOP 



Because these microorders may be forced, microorders FCHB (SPO) and RDB (SPO) can not 
be coded in the JTAB microinstruction. A jump modifier is not allowed. The RDB and CWRB 
forced by JTAB use the code map unless the address is on the base page. 

Meaning: No operation affecting the microcode flow will take place; i.e., the next sequential 
microorder will be executed. 

Usage: This is a default microoder where the OP field is blank. 

Meaning: An unconditional return from subroutine will occur. The next microaddress will come 
from the top of the microsubroutine stack and the stack pointer will be decremented. The return 
can be to any address in micromemory. No jump modifier is allowed. 
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Table 4-2. Microorder Definitions (Continued) 



— '" — '■ 1 

MICRO- 
ORDER 


DEFINITION 


WORD TYPE 2: OP FIELD 


RTNT 
RTNF 
SPOF 

SPOT 


If the condition specified in tine CNDX field is True, then this is the same as the RTN OP. 
Otherwise, the next sequential operation is executed. 

If the condition specified in the CNDX Field is False then this is the same as the RTN OP. 
Othenwlse, the next sequential instruction is executed. 

The microorder in the SPO field will be executed only if CNDX is False. The next sequential 
microorder will be executed. SPEC cannot be coded in the ALU Field. The SPO Field must not 
contain a shift function or LDQ 

The microorder in the SPO field is executed only if CNDX is True. The next sequential 
microorder will be executed. SPEC cannot be coded in the ALU field. The SPO Field must not 
contain a shift function or LDQ. 


WORD TYPE 3: OP FIELD 


JMPT 

JMPF 
JSBT 

JSBF 


Jump to target address within current 64 word block only if CNDX is True. Othenwise, the next 
sequential microorder is executed. If the current address is in the last location of a 64 word 
block, then the jump will be to the next 64 word block. 

Same as JMPT except that the jump will occur only if CNDX is False. 

Jump to subroutine at target address within current 64 word block only if CNDX is True. If 
CNDX is True, the current address + 1 is pushed onto the microsubroutine stack and the stack 
pointer is incremented. If the current address is the last location of a 64 word block, then the 
jump will be to the next 64 word block. If CNDX is not True, then the next sequential 
microinstruction will be executed. 

Same as JSBT except that the jump to subroutine occurs only if CNDX is False and the next 
sequential microorder is executed if CNDX is True. 


WORD TYPE 4: OP FIELD 


JMP 
JSB 


Word Type 4. Unconditional Jump to target address within the current 64 word block. If the 
current address is the last location of a 64 word block then the jump will be to the next 64 word 
block. Jump modifiers may be used. 

Unconditional jump to subroutine at the target address within the current 64 word block. The 
current address + 1 is pushed onto the microsubroutine stack and the stack pointer will be 
incremented. If the current address is the last location of a 64 word block, then the jump will be 
to the next 64 word block. Jump modifiers may be used. 


WORD TYPE 5: OP FIELD 


JMPL 
JSBL 


Unconditional jump to target address anywhere in the microaddress space. Coding SPEC in 
the ALU field performs a modified jump. This causes the lower 4 bits of the target address to be 
replaced with bits 3-0 of CT and all ones to be put on the Y bus. 

Unconditional jump to subroutine at target address anywhere in the microaddress space. The 
current address +1 is pushed onto the microsubroutine stack and the stack pointer is in- 
cremented. A jump modify may be performed by coding SPEC in the ALU field. This causes the 
lower 4 bits of the target address to be replaced with bits 3-0 of the CT register and all ones to 
be put on the Y-bus. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
OROER 



DEFINITION 



WORD TYPE 6: OP FIELD 



IMM 



Immediate data used as the A-Bus operand. The next sequential instruction is executed. 



WORD TYPES 1 AND 2: A-BUS FIELD 



The A Field specifies the A-Bus operand and is available in Word Types 1 and 2. For Word Types 3, 4 and 5 the 
A-Bus defaults to the accumulator (R04). 



(ROO) A 

(R01) B 

X (R02) 

Y (R03) 

ACC (R04) 

HP1 (R05) 

HP2 (R06) 

USR (R07) 

S0-S7 
(RIO8-RI73) 



Macro A-Register, ROO of the register file. 

Macro B-Register, R01 of the register file. 

Macro X-Register, R02 of the register file. 

Macro Y-Register, R03 of the register file. 

Accumulator, R04 of the register file. A-Bus defaults to ACC in WORD Types 3, 4 and 5. 

R05 of the register file. Reserved for use as the Return register. 

R06 of register file. Reserved (do not use). 

R07 of the register file. Reserved for the user. That is, no HP microcode will use this register. 

General-purpose registers in the register file. 



WORD TYPES 1, 2, 3, AND 4: SPO FIELD AND SP1 FIELD 



The SP1 field contains a subset of the SPO Field. The SPO Field is available in Word Types 1 and 2, and the SP1 
Field is available in Word Types 3 and 4. The microorders below are available in both the SP1 Field and the SPO 
Field. 



ACF 
AL1 

AR1 

CLE 
FCIN 

IP 



Perform the ALU operation specified using the carry flag as the ALU carry in. This microorder 
has no effect if the ALU field contains a logical operation. 

Arithmetic Left Shift. If the double-word bit (DW) is set, then a double-word shift will be 
performed with the ALU output as the most significant word and the Q-register as the least 
significant word. This special cannot be used with the SPOT or SFOF microorders in the OP 
field. 

This special cannot be used with SPOT or SPOF in the OP Field. Same as LL1 except that an 
arithmetic Right Shift is performed. 

Clear the macro Extend register at the end of the microcycle. 

Force the ALU carry-in to 1 for add operations (ADDC, ADBC, CMBC, ADAC, CMAC). Force 
the ALU carry-in (BORROW-) to for subtract operations (SBAC and SBBC). This microorder 
has no effect if the ALU field contains a logical operation. 

Increment the P-register at the end of the microcycle. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 


DEFINITION 




WORD TYPES 1, 2, 3, AND 4: SPO FIELD AND SP1 FIELD (Continued) 


IN 


Increment the N (Index) register at the end of the microcycle. 


LDQ 


Store the ALU output (preshifter) in the Q-register. LDQ used with SPOT or SPOF in the OP 

field. 


LL1 


Logical shift of the ALU output Left 1 position. If the double-word bit (DW) is set, then a 
double-word shift will be performed with the ALU output as the most significant word and the 
Q-register as the least significant word. This special can not be used with the SPOT or SPOF 
rnicroorders in the OP field. 


LR1 


Same as LL1 except that a logical Right Shift is performed. This special cannot be used with 
SPOT or SPOF in the OP Field. 


NOP 


No operation. 


RDB 


F'erform a memory read using the B-Bus as the memory address. The data read is returned to 
the T-register. Uses Data Map if base register is enabled. 


RL1 


Same as LL1 except that a Left Rotate is performed. This special cannot be used with SPOT or 
SPOF in the OP Field. 


RR1 


Same as LL1 except that a Right Rotate is performed. This special cannot be used with SPOT 
or SPOF in the OP Field. 


RDP 


Perform a memory read using the address in the P-register. The data read is returned to the 
T-register. Uses Data Map if base register is enabled. 


STE 


Set the macro Extend register at the end of the microcycle. 


WORD TYPES 1 AND 2: SPO FIELD 


BFB 


Same as a RDB except that a line called "RNI" is asserted on the backplane which goes to 
external devices to indicate that an instruction is on the backplane (typically an I/O instruction). 
If the base register is enabled, BFB uses the Code Map. 


CK2 


Einables the optional floating point processor to clock at twice its normal rate. 


CLO 


Clear the integer overflow register at the end of the microcycle. 


ENOE 


Enable the macro register E, and the integer overflow register to be set from the results of the 
current microcycle. 




Add operations: (ADDC, ADAC, ADBC, CMAC, CMBC), E is set if the carry out of the ALU is 
set. 




Subtract operations: (SBBC, SBAC), E is set if the carry out of the ALU is clear; that is, E is set 
if there is a borrow. 




Logical operations: the setting of E is undefined. The integer overflow is set if the overflow of 
the ALU is set. Othen/vise, E and the integer overflow register are unchanged. The setting of E 
and integer overflow occurs at the end of the microcycle. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1 AND 2: SPO FIELD (Continued) 



FCHB 



IFCH 



LDBR 
STOR 

STO 



Read with address on the B-Bus to perform an instruction fetch. Data returned on FCHB will be 
loaded into both the T-register and the CT-register (Instruction Register). A fetch microorder 
must be executed before returning to the JTAB subroutine to perform all the necessary 
"housekeeping" functions in order to execute the next assembly instruction. If an interrupt is 
pending, FCHB will be inhibited and INTP set. There can only be one fetch (FCHB or FCHP) 
per macroinstruction. If the base register is enabled, FCHB uses the Code Map. 

Performs an interrupt instruction fetch. lAK (interrupt acknowledge) will be asserted on the 
backplane. A memory read will occur where the address and map selection are driven by the 
highest priority interrupting device. P-register is not altered. The data returned will be loaded 
into the T-register. This microorder is normally executed only in the interrupt service 
microroutine. This microoder will not work properly if the value of the B bus is or 1 . The central 
interrupt latch (CIL) will be loaded with the address. (CIL is an external register referenced by 
SRIN.) If the base register is enabled, IFCH uses the Data Map. 

Load the Base Register with the data on the Y-Bus at the end of the microcycle. 

Perform the STOR operation specifed only if the condition specified (CNDX) is met. STOR can 
only be used with SPOT or SPOF in the OP field. 

Set the integer overflow register at the end of the microcycle. 



WORD TYPES 1, 2, 3, AND 4: ALUS FIELD WHERE ALU FIELD CONTAINS SPEC 

The following specials are available in the ALUS field (Word Types 1,2,3, and 4) when the ALU field contains 
SPEC. F is used in the microorder descriptions to indicate the ALU output or F-Bus. Q should not be used in the 
B-field along with the ALU Specials. In this case, Q is an implied operand. 



ASG 



Performs a transformation of the B-bus operand and passes It to the Y-bus. This instruction is 
normally used to change the ASG instruction in the instruction register CT into a more usable 
form. 

The ASG data transformation is the following: 



Y-Bus ( 


gets 


B-Bus 


Y-Bus gets 


B-Bi 







8 


8 


X 


1 




SKP 


9 


X 


2 




SE 


10 


X 


3 




9 


11 


11 


4 







12 


X 


5 




1 


13 


X 


6 




2 


14 


X 


7 




3 


15 


X 



NOTES: In the table above, X is undefined, SE indicates the state the E bit should be at the end 
of the instruction (excluding the effects of INA). SKP is a logical "1" if the ASG instruction 
should skip (again excluding the effects of INA). 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1, 2, 3, AND 4: ALUS FIELD WHERE ALU FIELD CONTAINS SPEC (Continued) 



DIV 



DIV1 



DNRM 



RL4 



Two's complement divide step: 

F = B+A+Cin, if SCFF = 0; 
F = B-A-I+Cin, if SCFF = 1; 

where SCFF = "sign compare flip flop", Cin=SCFF, and F = F-Bus. 

The sign compare flip flop is intemal to the ALU and is driven onto the YZ output line during the 
DIV operation. The sign compare flip flop is updated only when DNRM, DIV, or DIV1 is 
performed. When one of these microorders is specified, the SCFF will be updated at the end of 
the cycle with "A15 exclusive NOR F15"; i.e., SCFF (next cycle) = 1 if the signs of A and the 
F-bus are the same, SCFF (next cycle) = if the signs of A and the F-bus are different. 

A double word, logical left shift Is performed on the F-Bus and Q-register with "A1 5 exclusive 
NOR F15" shifted into the least significant bit position. 

The processor conditions are the following: 

CF = carry out; 

ALOV = overflow; 

YZ = sign compare flip flop; 

SF = A15 exclusive NOR F15. 

First two's complement divide step. This is the same as DNRN/I with the exception that the value 
shifted into the least significant bit position is "A15 exclusive OR F15." 

Double-Length Normalize Step: F-Bus = B-i-Cin, where Cin=0 

A double word, logical left shift is performed on the F-bus and Q where a zero is shifted into the 
least significant bit position. 

F>rocessor conditions are the following: 

CF = F1 5 exclusive OR F14; 

ALOV = F14 exclusive OR F13; 

YZ = Q register and F-Bus (before shifting) are all zeros; 

SF = A15 exclusive OR F15 (F-bus bit 15). 

DNRM will cause the sign compare flip flop (SCFF) to be loaded at the end of the cycle with 
■ A15 exclusive NOR F15." 

Flotate the B-Bus operand left 4 places and pass to the Y-Bus. This microorder is used In 
emulation of SRG instructions. CF and ALOV are cleared. The shift flag is not updated by this 
microorder. If the SP2 field contains LWE or LWF, they are ignored. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 


DEFINITION 


WORD TYPES 1, 2, 3, AND 4: ALUS FIELD WHERE ALU FIELD CONTAINS SPEC (Continued) 


SM2C 


Sign magnitude to 2's complement conversion: 




F = B+Cin, if 81 5 = 0; 
F = (-B)+Cin, if B15 = 1; 




where Cin=B15, and F = F-bus. 




There is no shift but bit 1 5 of the Y-Bus is forced as follows: 




Y15= B15 exclusive OR F15. 




The processor conditions are the following: 




CF = carry out; 
ALOV = overflow; 
YZ = B15; 
SF = not updated. 


SNRM 


Single length normalize step: F = B+Cin, where Cin = 1, F = F-bus. 




F is not shifted, but a logical left shift is performed on Q with a zero shifted into the least 
significant bit position. 




The processor conditions are the following: 




OF = 015 exclusive OR 014 (before shifting); 
ALOV = 014 exclusive OR 013 (before shifting); 
YZ = register all zeros before shifting; 
SF = 015 (before shifting). 


SRG 


Performs a transformation of the B-Bus operand and passes it to the Y-Bus. This microorder is 
normally used to change the SRG Instruction in the CT-register (instruction register) a more 
usable form. 




The Transformation If The Transformation If 
B-Bus Bit 10 = B-Bus Bit 10 = 1 




Y-Bus B-Bus Y-Bus B-Bus Y-Bus B-Bus Y-Bus B-Bus 

8 8=0 — 8=0 — 

1 9 9=0 — 1 1 9=0 — 

2 6 10=0 — 2 2 10=0 — 

3 7 11 11 3 3 11 11 

4 12=0 — 4 8 12=0 — 

5 1 13=0 — 5 6 and (8 or 9) 13=0 — 

6 2 14 5 6 7 14 6 

7 4 15 3 7=0 — 15 9 




NOTES: CF and ALOV are cleared. 


SWAP 


Swap bytes of B-bus field operand and pass to Y-bus. CF and ALOV are cleared. 


SWZU 


Swap bytes of B-bus field operand, zero the upper byte and pass to Y-bus. CF and ALOV are 
cleared. 


SWZY 


Swap bytes of B-bus field operand, zero the lower byte and pass to Y-bus. CF and ALOV are 
cleared. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1, 2, 3, AND 4: ALUS FIELD WHERE ALU FIELD CONTAINS SPEC (Continued) 



TMPY 



TMLC 



UMPY 



ZLY 
ZUY 



Tv/o's complement multiply step. This Is the same as UMPY with one exception: the value 
shifted into the most significant bit position is: 

F15 exclusive OR OVR, 

where F15 is bit 15 of F-Bus and OVR=ALU overflow from the current cycle. 

Last cycle of two's complement multiply: 

F = B+Cin, if Q0=0; 

F = B-A-I+Cin, If Q0=1 

where Cin=QO, F = F-bus. 

A double word, logical right shift is performed on F-bus and Q-register with the following shifted 
into the most significant bit position: 

F1 5 exclusive OR OVR, 

where F15 = bit 15 of F-bus, and OVR = ALU overflow of the current cycle. 

The processor conditions are the following: 

CF = carry out; 
ALOV= overflow; 
YZ= QO; 

SF = QO. 

Unsigned multiply step: 
F = B+Cin, if Q0=0; 
F = A-fB-t-Cin, if Q0=1; 

where Cin=0, F = B-bus (ALU output). 

A double-word logical right shift is performed with F and Q, with the carry flag from the current 
cycle being shifted into the most significant bit position. The processor conditions are updated 
as follows: 

CF = carry out; 
ALOV = overflow; 
YZ = QO; 
SF = QO. 

Zero the lower byte of the B-bus field operand and pass to Y-bus. OF and ALOV are cleared. 

Zero the upper byte of the B-bus field operand and pass to Y-bus. CF and ALOV are cleared. 



WORD TYPES 1 AND 4: SP2 FIELD 



This field specifies a number of special functions in the processor. 



CLF 
CMDW 

CMID 



Clear general-purpose flag at the end of current microcycle. 

Complement the Double Word bit at the end of the current microcycle. For standard ALU 
functions the double-word bit indicates that a shift specified will be a double-word shift. 

Complement the sense of the "temporary interrupt system disable" at the end of the current 
microcycle. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



CT30 

CT74 

DCT 
DN 

FCHP 



IP 

LWE 

LWF 

NOP 
RDIO 

RDPC 

STF 
WRIO 



DEFINITION 



WORD TYPES 1 AND 4: SP2 FIELD (Continued) 



Replace bits 3-0 of jump address with bits 3-0 of the CT-register. This is a jump modify 
microorder and can be used only in Word Type 4. 

Replace bits 3-0 of jump address with bits 7-4 of the CT-register. This is a jump modify 
microorder and can be used only in Word Type 4. 

Decrement the general-purpose counter at the end of the current microcycle. 

Decrement the N register at the end of the cycle. If DN and IN are both coded, the N register will 
decrement. 

Read with address in P to perform an instruction fetch. Data returned on FCHP will be loaded 
into both T and CT (Instruction Register). A fetch microorder must be executed before returning 
to the JTAB microinstruction to perform all necessary "housekeeping" functions in order to 
execute the next assembly instruction. If an interrupt is pending, FCHP will be inhibited and 
INTF will be set. If the base register is enabled, FCHP uses the Code l\/lap. 

Increment the P-register at the end of the microcycle. If IP is coded in both the SP2 and SPO 
fields the P register will only increment once. 

Link with E; that is, E is shifted into the data word and the bit shifted out is loaded into E. LWE 
can only be coded with a shift coded in the SPO field. 

Link with F. F (the general purpose flag) is shifted into the data word and the bit shifted out is 
loaded into F. LWF can only be used with a shift in the SPO or SP1 field. 

No special operation is performed. 

Perform an I/O handshake on the backplane where an I/O card will will send an operand to the 
CPU. The returned operand is loaded into register T. Before executing this microorder, the 
microcode must check that lORQ is asserted on backplane (see microorder lORQ). 

Perform a memory read using the address in the P-register. If the base register is enabled, 
RDPC uses the Code Map. 

Set general-purpose flag at the end of the current microcycle. 

Perform an I/O handshake on the backplane where the processor card will supply data to be 
received by the I/O card from the Y-Bus. For this microorder to function correctly, the 
microcode must check that lORQ is asserted. 



WORD TYPES 2 AND 3: CONDITION (CNDX) FIELD 



The conditions are tested by the conditional operations. They are updated at the end of the microcycle, such that 
they refer to conditions generated during the previous microcycle or registers loaded at the end of the previous 
microcycle. 



B15 



Bit 1 5 of the B-Bus was a logic "1 " during the previous micro-cycle. This condition is not valid if 
Q was the B-Bus operand during the previous cycle. The B15 condition is not updated when 
zero is in the ALU field. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



ALOV 
CF 

CTZ 
CTZ4 

E 

F 

INTP 



INTF 

lORQ 
MPEN 
O 
PON 

SF 

Y15 
YZ 



DEFINITION 



WORD TYPES 2 AND 3: CONDITION <CNDX) FIELD (Continued) 



The overflow output of the ALU set at the end of the previous microcycle. For standard ALU 
functions, ALOV is a true two's complement overflow but it may indicate a different condition for 
SPEC functions. The ALOV condition is not updated when ZERO is in the ALU field. 

The carry output set at the end of the previous microcycle. It is a true two's complement carry 
for add operations, and borrow- (complement of Ixirrow) for subtract operations. CF may 
indicate different conditions for SPEC functions. The CF condition is not updated when the ALU 
field contains ZERO. 

All bits of the CT-register are zero. This condition is not valid during the cycle immediately 
following a load of the CT register. CT will be decremented at the end of the microcycle when 
CTZ is in the CNDX field. 

All the lower 4 bits of the CT-register are zero. The CTZ4 condition will not be valid during the 
cycle immediately following a load of the CT-register. CT will be decremented at the end of the 
microcycle when CTZ4 is in the CNDX field. 

The macro E (Extend) register is set. 

General-purpose flag is set. Note that the state of F may be altered by JTAB in the OP field or 
STF, CLF, LWF in the SP2 field. 

A processor interrupt is pending. This condition lags the interrupt condition by one cycle. 
Example: 

CONDITION RESULT 

Parity Error Occurs; *Set Parity Error Flag 

If INTP Go To 1 Cycle; *INTP Not True Yet 

If INTP Go To 2 Cycles; *Now INTP Is True 

The Interrupt Flip-Flop is set meaning that the last fetch was ignored because a qualified 
interrupt request was pending. This indicates that the interrupt service routine must be called 
before the next JTAB microorder is executed. INTF is cleared in the interrupt service routine by 
any STOR to the interrupt status register (1ST). 

lORQ (I/O request) was asserted on the backplane at the the previous microcycle. 

Memory protect was enabled during the previous cycle. 

The integer overflow register is set. 

This microorder allows the firmware to distinguish a "force to zero" on powerup from a "jump to 
nonexistent micromemory" or a "microcode time out." It indicates that the processor power-on 
signal was asserted during the previous cycle. 

Shift flag is set. When a shift operation is executed, the shift flag is loaded with the bit shifted 
out. For further explanation see the paragraph in this section on Shifting Functions, and the 
ALU Special microorder definitions (ALUS Field). The SF condition is not updated when ZERO 
is in the ALU field. 

Bit 15 of the Y-Bus was a logic "1" at the end of the previous microcycle. 

The Y-Bus was all zeros at the end of the previous cycle. When an ALU special microorder is 
executed, YZ may indicate a different condition. (See description of SPEC microorders in the 
ALUS field.) The YZ condition is not updated when the ALU field contains ZERO. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1 - 6: ALU FIELD 



This field describes tlie function to be performed on the A-Bus operand and the B-Bus operand. 

AND Logically "AND" A with B. CF and ALOV are cleared. 

ADAC Add (two's complement) the A-Bus operand to Cin: A+Cin; where Cin defaults to 0. 

ADBC Add (two's complement) Cin to B-Bus operand: B+Cin; where Cin defaults to 0. 

ADDC Add (two's complement) A-Bus operand and B-Bus operand: A+B+Cin; 

where Cin defaults to 0. 

CAND Logically "AND" B with the one's complement of A. CF and ALOV are cleared. 

CMAC Add the one's complement of the A-Bus operand to Cin: (NOT A)+Cin; where Cin defaults to 0. 

CMBC Add the one's complement of B to Cin: (NOT B)-i-Cin; where Cin defaults to 0. 

lOR Logically "inclusive OR" A with B. CF and ALOV are cleared. 

NAND Logically "NAND" A with B. CF and ALOV are cleared. 

INOR Logically "inclusive NOR" A with B. CF and ALOV are cleared. 

SBAC Subtract (two's complement) A-Bus operand from B-Bus operand: B-A-1+Cin; 

where Cin= -borrow and Cin defaults to 1. 

SBBC Subtract (two's complement) B-Bus operand from A-Bus operand: A-B-1+Cin; 

where Cin= -borrow and Cin to 1. 

SPEC Perform special operation specified in ALUS field. SPEC cannot be used with SPOT, SPOF or 

IMM in the OP field, and cannot use Q in the B Field. With Word Type 5, SPEC will cause a 
jump modify operation equivalent to CT30, and all ones will be put on the Y-Bus. 

XNOR Logically "exclusive NOR" A with B. CF and ALOV are cleared. 

XOR Logically "exclusive OR" A with B. CF and ALOV are cleared. 

ZERO Forces the ALU output to all zeros. The following conditions are not updated: Y15, YZ, CF, 

ALOV, SF, and B15. 



WORD TYPES 1-6: B-BUS FIELD 



The B-Bus Field is used to specify the B-Bus operand and is in all Word Types. 



CAB 



CT 



CXY 



Conditionally enable to the B-Bus either the macro A- or B-register: 

A-register if bit 11 of the CT register = 0; B-Register if bit 11 of the CT register = 1. 

Counter, also used as an instruction register. After a fetch, the instruction is returned to both T 
and CT. 

Conditionally enable to the B-Bus either the macro X- or Y-register: 

X-Register if bit 3 of the CT-register = 0; Y-Register if bit 3 of the CT-register = 1 . 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 


DEFINITION 


WORD TYPES 1 - 6: B-BUS FIELD (Continued) 


FA 


The Fetch Address register which generally holds the address of the last macroinstruction 
fetch. 


GRIN 


Enable to the B-Bus the register in the general register file indexed by N. 


1ST 


Interrupt status register. 


N 


The Index Register (bits 0-3) for indirect addressing of the privileged and general register files 
and the external registers (bits 4-7, not used; bits 9-15, status information). 


P 


The P-register which generally holds the macro program counter. 


PRIN 


F?egister in the privileged register file indexed by N. 


Q 


Q-register (internal to the ALU). The Q-register becomes the B-Bus operand for ALU opera- 
tions, although it is not actually enabled onto the B-Bus. Thus, Q cannot be used in the B-Field 
for External ALU Specials or memory operations that use the B-Bus as the address (BFB, RDB, 
FCHB). Also, specifying Q in the B-Field will cause the B1 5 condition to be undefined during the 
following cycle. 


MA 


The last memory address register which generally contains the address of the most recent 
access to main memory. MA is loaded by any memory reference microorder and also when 
JTAB is asserted. 


MAP 


Enable Map Register addressed by MPAR to the B-Bus. MPAR is an external register. Bit 15 is 
read protect, bit 14 is write protect, and bits to 9 have the physical page number. 


MEMR 


Enable the Memory Control Register onto the B-Bus. 


A (ROO) 


Macro A-register (ROO). 


B (R01) 


Macro B-Register (R01). 


X (R02) 


Macro X-Register (R02). 


Y {R03) 


Macro Y-Register (R03). 


ACC (R04) 


F^egister file accumulator (R04). 


HP1 (R05) 


F105 of the register file. Reserved for use by HP as the Return register. 


HP2 (R06) 


R06 of the register file. Reserved for use by HP. 


USR (R07) 


F107 of the register file. Reserved for the user. That is, no HP microcode will use this register. 


S0-S7 
(R10,-R17,) 


(Seneral-Purpose Registers 


SR 


EEnable the processor switch register to the B-Bus. An open switch is read as a "0" and a closed 
switch as a "1". 


SRIN 


Enable to the B-Bus the Special register indexed by N, bits 0-3. 




F^egisters: 0=MPAR; 1=PEL1; 3=PEL2; 3=CIL; 4-15, HP reserved. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1 - 6: B-BUS FIELD (Continued) 



The T-register to which data from the backplane is stored after memory and I/O reads. If data 
from a previous memory or I/O read has not yet been returned to the T-register, then the 
processor will freeze. If the previous read was A/B addressed, the A- or B-Register will be 
enabled onto the B-Bus. 



WORD TYPES 1 - 6: STOR FIELD 



The STOR Field Is used to specify the destination register (or main memory) into which the Y-Bus will be loaded 
at the end of the microcycle. Register updating occurs only at the end of the cycle. 



CAB 

CT 
CXY 

CWRB 

GRIN 

1ST 

LR 

N 

NOP 
MAP 

MEMR 
P 

PRIN 
A (ROO) 
B (R01) 
X (R02) 
Y (R03) 
ACC (R04) 



Store the Y-Bus conditionally in either the macro A- or B-register: 

A-register if bit 1 1 of the CT-register = 0; B-Register if bit 1 1 of the CT-register = 1 . 

Counter Register (Instruction register). 

Store the Y-Bus conditionally in either the macro X- or Y-register: 

X-Register if bit 3 of the CT-register = 0; Y-Register if bit 3 of the CT-register = 1 

Conditional write (used for indirect storing). Perform a memory write if B15 = 0; othen/vise 
perform a memory read. The read or write will be to the main memory location pointed to by the 
address on the B-Bus. Data for write is from the Y-Bus. 

The register in the general register file indexed by N. 

Store the Y-Bus to the Interrupt Status Register. 

Enable and latch the Y-Bus into the processor status LEDs. Storing a "0" in LR will light the 
corresponding LED, and storing a "1" will turn off the LED. 

The Index Register which is used for indirect addressing of the GRIN and PRIN register files 
and the extemal SRIN registers. 

No store is performed. 

Store Y-Bus into MAP Register addressed by MPAR. Bit 15: read protect. Bit 14: execute 
protect. Bits 0-13: physical page no. 

Store the Y-Bus into the Memory Contol Register. 

The P-register which generally holds the macro program counter. 

The register in the privileged register file indexed by N. 

Macro A-Register 

Macro B-Register 

Macro X-Register 

Macro Y-Reglster 

Register file accumulator. 
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Table 4-2. Microorder Definitions (Continued) 



MICRO- 
ORDER 



DEFINITION 



WORD TYPES 1 - 6: STOR FIELD (Continued) 



HP1 (R05) 

HP2 (R06) 

USR {R07 

S0-S7 
(RIOe-RI?,) 

SRIN 

WRP 
VVRB 



R5 of the register file. Reserved for use as the Return register. 

R6 of the register file. Reserved for use by HP. 

R7 of the register file. Reserved for user. That is, no HP microcode will use this register. 

General-purpose registers. 

Store Y-Bus into the special register indexed by N, bits 0-3. 

F^egisters: = MPAR; 1 = PEL1; 2 = PEL2; 3 = CIL; 4-15, HP reserved. 

Write to memory at the address specified by P. Data comes from the Y-Bus. 

Write to main memory at the address on the B-Bus. Data to write comes from the Y-Bus 



4-13. SHIFT FUNCTIONS 

There are three categories of shifts which can be executed in the microcode: 

1. Single Word, single bit shifts; 

2. Double Word, single bit shifts; 

3. Special function shifts (SPEC in the ALU field). 

The double Word bit (DW) is used to differentiate between single and double word shifts. The Shift 
Flag (SF) is used to hold the bit which is shifted out. Note that the Shift Flag will be updated ONLY for 
shift functions. The Shift Flag is normally updated for all shift functions except RL4 (4 bit left rotate). 
The Shift Flag is not updated when the ALU field contains ZERO. 

Single word, single-bit shifts are indicated by microorders in the SPO or SPl field when the double- 
word bit is cleared and the ALU field does not contain SPEC. The shifts are arithmetic, logical or 
rotational either right or left. The output of the ALU (F-Bus) is shifted and then enabled to the Y-Bus. 
SF will be updated as follows: 

SF = F-Bus bit for all right shifts 

SF = F-Bus bit 15 for left rotate and logical shift 

SF = F-Bus bit 14 for left arithmetic shifts 

A link with either E (Extend register) or F (general-purpose flag) can be specified in the SPO field. In 
this case, E or F will be shifted into the F-Bus data word and the bit shifted out (same as the bit loaded 
into SF) will be loaded into either E or F (see Figure 4-2 for Single- Word Single-Bit Shifts). 
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Double-word single-bit shifts are indicated by microorders in the SPO or SPl field when the double- 
word bit is set and the ALU field does not contain SPEC. The shifts are arithmetic, logical, or 
rotational — either right or left. The output of the ALU (F-Bus) is shifted together with the Q register 
where the F-Bus is the most significant word and Q is the least significant word. The F-Bus, after 
shifting will be enabled to the Y-Bus and the shifted data from Q will be loaded back into Q. SF will be 
updated as follows: 

SF = Q bit for all right shifts 

SF = F-Bus bit 15 for left rotate and logical shifts 

SF = F-Bus bit 14 for left arithmetic shifts 

A link with either E (Extend register) or F (general-purpose flag) can be specified in the SO field. In 
this case, E or F will be shifted into the F-Bus/Q data word and the bit shifted out (same as the bit 
loaded into SF) will be loaded into either E or F (see Figure 4-3 for Double-Word Single-Bit Left Shifts, 
and Figure 4-4 for Double-Word Single-Bit Right Shifts). 

There are seven Internal ALU Special functions and one External ALU Special shift function which 
perform shifts. These shifts may be either single- or double- word shifts by definition and their function 
is not aff"ected by the state of the double-word bit. For the ALU Specials, if a link with E or F is 
specified, then the bit shifted out (same as the bit loaded into SF) will be loaded into E or F, but E and F 
will NOT be shifted in; that is, the normal shifting operation will occur. For the External ALU Special 
shift (RL4) any link specified will be ignored. These shift operations and the Shift Flag updating are 
explained in detail under the SPO and SPl fields in the microorder definitions. (The SPl field is a 
subset of the SPO field so they are given under "Word Types 1 - 4 for the SPO Field and SPl Field.") 

4-14. MICROORDER DEFINITIONS 

Microorder Definitions are given in Table 4-2, and a Summary of Microorders which shows in tabular 
form the microorders contained in each field is provided in Appendix B. 
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Figure 4-3. Double- Word, Single-Bit Left Shifts 
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Figure 4-4. Double-Word, Single-Bit Right Shifts 
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4-15. MICROCODE RESTRICTIONS AND CONSIDERATIONS 

4-16. MEMORY AND I/O MICROORDERS 

Do not code more than one memory or I/O microorder in the same microinstruction. These microorders 
are: RDP, RDPC, RDB, FCHP, FCHB, IFCH, BFB, WRB, WRP, CWRB, RDIO, and WRIO. 



4-17. FETCH MICROORDERS 

The fetch microorders are FCHB and FCHP. Every microroutine to emulate an instruction must 
contain exactly one fetch microorder. A store to the interrupt status register is not allowed in the 
microinstruction in which the fetch occurs. A memory or I/O microorder, as defined above, or any 
modification of CT or 1ST are not allowed between the fetch microinstruction and the return JTAB 
loop. The fetch microorder will not cause CT to be loaded at the end of the current microcycle but may 
cause it to be loaded at the end of the following microcycle. Therefore, the microinstruction following 
the fetch may reference CT if it does not contain the T microorder. No following microorder should 
reference CT. 



4-18. BFB and IFCH MICROORDERS 

BFB and IFCH must not reference the A- or B-Registers since they will not function in this manner. 
This means that either AJB addressability must be off or that the B-Bus must have a value greater 
than 1 during the cycle when BFB or IFCH is executed. Therefore, the user microcode must resolve 
this problem. 



4-19. RDIO AND WRIO MICROORDERS 

Microorder T should not be coded in the B field of a microinstruction for operation in the same 
microroutine as an RDIO or WRIO microorder. 



4-20. MEMORY READS 

All memory reads must be terminated with T in the B field. Note that T is contained in the B field of 
the JTAB microinstruction to terminate the FCHB or FCHP at the end of the JTAB microroutine. 



4-21. MAP REFERENCES 

Do not code the MAP microorder in the STOR field. 
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4-22. BASE REGISTER AND DATA AND CODE MAPS 

When the base register is disabled, all memory references use the map specified in bits 0-4 of MEMR, 
which may contain any map number. When the base register is enabled, it is assumed that bits 0-4 of 
MEMR contain an even map number which is used as the Data Map. The corresponding Code Map will 
be the Data Map wiih bit forced to a "1". The following memory references use the Data Map: RDP, 
RDB, WRB, WRP, and CWRB. The following memory references use the Code Map, except when they 
reference the base page in which case they will use the Data Map: FCHB, FCHP, RDPC, and BFB. 
When the base register is enabled, any memory reference to the base page will have the base register 
added to its logical address. This will not affect addressing the A or B registers. 



4-28 



SECTION 5 

TIMING CONSIDERATIONS 



TIMING CONSIDERATIONS 



SECTION 



Certain details about computer timing should be considered for microprogram applications so that you 
can do the following: 

• Intelligently and effectively make use of computer time when you execute your microprograms. 

• Synchronize microinstructions properly for the operations that you wish to perform with your 
microprograms. 

The information you need to know about the computer's timing to effectively microprogram can be 
separated into three categories: 

• A basic definition of the processor cycle time period. 

• Conditions that can vary the speed of execution of your microprograms. 

• How you estimate the time it takes for a microprogram to execute. 

In the HP A700 processor, the timing as related to microprogramming is very simple since almost all 
microinstruction operations take place within a single clock period. The microinstruction time periods 
are described in this section. 



5-1. COMPUTER TIMING 

As defined in Section 2 of this manual, microinstructions are executed in the micromachine during 
"microcycles." One microcycle is the time interval required to completely execute one normal 
microinstruction. The length of one microcycle is 250 nanoseconds. 

A normal microinstruction is defined here as one that does not result in a processor clock "freeze." 



5-2. MEMORY and I/O ACCESS 

The processor has the capability of buffering (or latching) the data and address of just one memory or 
I/O access while a previous memory access is being executed. While an I/O access is being executed 
there is no buffering (or latching) of data and address. Different lengths of time are required for these 
operations as follows: 

a. Memory accesses typically take two processor cycles (microcycles). If memory refresh occurs at the 
same time, the access can extend to four microcycles. 

b. I/O accesses take three microcycles each. 

Any DMA activity from I/O cards has priority over the processor operations; thus, any memory or I/O 
access can be delayed by the DMA time. 
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5-3. PROCESSOR CLOCK FREEZE 

A freeze of the processor clock is a waiting condition where the current microinstruction will not be 
executed until the freeze is terminated. There are four conditions associated with memory or I/O access 
that will cause a processor clock freeze. They are the following: 

a. If the microorder T is in the B-Bus Field of the current microinstruction while the T-register has 
not yet been loaded with data from the previous memory or I/O read. 

b. If a memory or L/0 access has been requested by a microorder, and the memory and I/O access logic 
is busy (that is, it is still holding an address or data from a previous request which has not yet gone 
out on the backplane). 

c. The MAP microorder in either the B-Bus or STOR field is executed while the maps are in use by 
the memory controller for a memory cycle. Since the map registers are required by the processor 
for the new microorder, a freeze will occur. This freeze lasts a maximum of one clock cycle. 

d. The FCHP and FCHB microorders cause a freeze if any read or write is in progress. This ensures 
that any memory protect violation is detected at the end of the instruction that caused it. 

A processor clock freeze is transparent to the microcode. It will delay the transition of the processor 
clock at the middle of the clock cycle for an integral number of cycles. When a freeze occurs, none of the 
microorders in the current (frozen) microcycle will be executed until the freeze condition is no longer in 
effect. A processor clock freeze does not effect the system clock or any other cards. 

Maximum performance is obtained by minimizing the number of times freezes occur in any 
microprogram since each freeze adds one or more clock periods of 250 nanoseconds to the total run 
time. In microprogramming consider the effect of memory read operations and T register usage. 

All memory read operations use the T-register and take at least two processor clock cycles. Thus, the 
T-register is not available in the cycle after a memory read. Freezes can be avoided by not program- 
ming T-register rei'erence microorders immediately following memory read microorders. An example 
of microinstruction execution times of memory accesses through the T-register comparing the time 
with a freeze and without a freeze follows: 

S0:-55; • 

S1:"a,RDP; •start memory read 

S2:-t; •freeze time • 1.0 usee 



SI 
SO 
S2 



•a,:RDP; "start memory read 

■55 •wait for memory read 

■t •no freeze, time ■ 0.750 usee 



Avoidance of a freeze is beneficial if you can effectively use the cycle occurring in between the memory 
reference microorder and the T microorder. 
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Microinstruction execution including I/O accesses, and reading and writing to memory is illustrated in 
the following examples where the explanation and backplane action is given in a list below the 
examples: 



PROGRAM: NOP; NOP; RDIO; A:=T; NOP 



ACTIONS: NOP NOP RDIO FREEZE FREEZE A:=T 

LIST NO.: 12 3 4 

(below) 



NOP 



TIME 



PROGRAM: NOP; NOP; WRP; RDIO; NOP; NOP; A:=T 



ACTIONS: NOP 



NOP 



WRP 



LIST NO.: 
(below) 



RDIO ^ NOP ^ NOP ^ FREEZE ^ A:=T 



TIME 



PROGRAM: NOP; NOP; WRP; WRP; WRP; A:=B 



ACTIONS: NOP 



LIST NO.: 
(below) 



NOP , WRP . WRP .FREEZE WRP 



A:=B 



10 



11 



12 



13 



TIME 



ACTIONS LIST: 



First Example 



Second Example 



Third Example 



1. I/O Read Started. 

2. Freeze, T not ready. 

3. Freeze. 

4. Executed 



5. Write Started. 

6. I/O Read Buffered. 

7. I/O Read Started. 

8. Freeze Since I/O Read Not Done. 



9, Write Started. 

10. Write Buffered. 

11. Freeze: Buffer In use 
2nd Write Started. 

12. No Freeze, 3rd Write Buffered. 

13. No Freeze, 3rd Write Started. 



5-4. DATA TRANSFERS 

A complete memory access to main memory occurs within two 250 nanosecond processor cycles. Thus, 
the fastest data transfer rate, taking into account memory refresh cycles, is 2.0 Mwords per second or 
4.0 Mbytes per second. An example of a data transfer program is the cross-move-words macroinstruc- 
tion (e.g., dynamic mapping macroinstruction MWOl) which moves words at memory speed. 
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MAPPING TO USER'S 
MICROPROGRAMMING AREA 



SECTION 



In order to have operational flexibility when using your microprogramming facilities, you must have 
an understanding of the methods used to branch from main memory to control store and then back to 
your program in main memory when your microprogram is completed. This section provides infor- 
mation that will enable you to do the following: 

• Understand the control store mapping scheme. 

• Link to the user's microprogramming area from your Assembly Language, FORTRAN, or 
PASCAL program. 

• Pass parameters to your microprogram. 

• Understand control store branch address modification (using some of the available microorders). 

• Return from control store (making a "normal" exit). 

• Pass parameters from your microprogram back to your main memory program. 

For this discussion on mapping it will be assumed that your microprograms have already been 
prepared (using the Paraphraser) and placed in some facility of control store (e.g., WCS or PCS). 
Section 7 describes how to assign starting addresses to your microprograms. 

Part III (Microprogramming Support Software and Hardware) of this manual describes methods used 
to get microprograms into control store. One method is the creating and installing of permanent 
microprograms. Another method is to use WCS and the WCS related microprogramming support 
software (ID.41,WL0AD) to load microprograms into control store and swap (or overlay) them with 
other microprograms. 

6-1. CONTROL STORE MAPPING METHOD 

The Microprogram Control Section is always in control of the computer, and the base-set 
microroutines carry out the steps for reading the instructions (and data) from main memory. In this 
operation, all instructions are placed in the instruction register and decoded. (The JTAB mac- 
roinstructions decoding loop is described in Section 2 of this manual. 

Data can be considered as "parameters" which can be loaded into the desired and appropriate registers 
by your microprogram to later perform certain operations. Parameter passing will be described later in 
this section. 

The process of decoding the macroinstruction bits determines which control store address (i.e., which 
microprogram) is called by the macroinstruction (Assembly language instruction) fetched from main 
memory. 

The decoding process, or mapping method, described below is at the level you will need for normal user 
microprogramming. Also the instructions for mapping to particular control store entry points are 
defined. 
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6-2. SOFTWARE ENTRY POINTS 

Recall that the control store map in Figure 2-3 shows all 16k words of control store, the boundary 
addresses of each memory area, and whether or not the memory area has "software entry points" 
available to the user. The software entry points are opcodes reserved for the user that branch to 
microaddresses where your microprograms begin. 

The hardware/firmware combination in the Microprogram Control Section is the facility that defines 
the control store software entry points. As described in Section 2, certain areas of control store may be 
used for HP microprograms and/or microprogrammed computer enhancements. Thus, you should 
know the contents of any area of control store before you put your microprograms there. 

You should restrict your use of software entry point instruction codes to those set aside for entrance 
into the user's microprogramming area. The instruction codes for most sofware entry points (excluding 
the base set and HP reserved areas of control store) are defined in the following paragraph, and the 
instruction codes for entrance into the user's area (the primary subject of this section) are identified. 

Once the user instruction has entered control store, the user's microprogram may branch to any 
control store location. Again, the use of discretion is implied since the areas shown in Figure 2-3 which 
are reserved for HP microprograms and/or microprogrammed accessories may be filled with 
microprograms . 

NOTE 

The contents and placement of microroutines of the A700 base set 
are reserved by HP and they are subject to change without notice. 
Therefore, branching into the HP base set to use existing 
microroutines (such as INDREAD) is not recommended. How- 
ever, you may copy these routines into your microprogramming 
areas for your own use. 



6-3. USER INSTRUCTION GROUP (UIG) 

For the purposes of mapping to the "user" areas, the processor base set has a reserved block of binary 
codes called the User Instruction Group (UIG). The user's areas that have these codes are designated 
as UIG Software Entry Points. Entry to other control store areas requires an extra branch after 
reaching control store. 

All opcode blocks which are accessible through the UIG instructions are shown in Table 6-1. This table 
is arranged in UIG instruction (binary code) order. 
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Table 6-1. Control Store UIG Software Entry Point Assignments 



RANGE OF UIG INSTRUCTION 


CONTROL MEMORY 




MAIN MEMORY VALUES 


ENTRY POINT 




USED (OCTAL) 


RANGE (HEX) 


USE 


105000 - 105137 


— 


HP Reserved (Base Set, FPP) 


105140- 105177 


0900 - 090F 


HP Resen/ed (Base Set) 


105200 - 105237 


— 


HP Reserved (Base Set, FPP) 


105240 - 105257 


— 


HP Reserved (VMA) 


105260 - 105277 


2800 - 280F 


HP Reserved 


105300- 105317 


— 


HP Reserved (Base Set) 


105320 - 105337 


— 


HP Reserved (SIS) 


105340 - 105357 


ODOO - ODOF 


HP Reserved 


105360 - 105377 


OFOO - OFOF 


HP Reserved 


101 (or 105)400-417 


0800 - 080F 


HP Reserved 


101 (or 105) 420-437 


OAOO - OAOF 


HP Reserved 


101 (or 105) 440-457 


OCOO - OCOF 


HP Reserved 


101 (or 105) 460 - 477 


OEOO - OEOF 


HP Reserved 


101 (or 105) 500- 517 


3000 - 300F 


User Reserved 


101 (or 105) 520-537 


3200 - 320F 


User Reserved 


101 (or 105) 540-557 


3400 - 340F 


User Reserved 


101 (or 105) 560-577 


3600 - 360F 


User Reserved 


101 (or 105) 600- 617 


2000 - 200F 


HP/User Reserved 


101 (or 105) 620- 637 


2200 - 220F 


HP/User Reserved 


101 (or 105) 640- 657 


2400 - 240F 


HP/User Reserved 


101 (or 105) 660 -677 


2600 - 260F 


HP/User Reserved 


101 (or 105) 700 - 737 


— 


HP Reserved (DMS) 


101 (or 105) 740- 777 


— 


HP Reserved (EIG) 


NOTES: 




1 . HP Base Set is the HP A700 firmware. 




2. Floating Point firmware is located in the HP 12156A FPP control store. 


3. VMA = Virtual Memory Access; SIS = Scientific Instruction Set; DMS = Dynamic Mapping System; 


EIG = Extended Instruction Set. 




4. HP Reserved areas should not be entered by the user, HP/User Reserved areas can contain user 


microcode but HP may use this control store area for future firmware packages; and User Reserved 


areas will never be used by HP. 





The UIG instructions permit you to link Assembly language routines to your microprograms. The key 
to UIG is the upper byte (most significant bits) of the calling code which must have the following 
format: 

octal 105xxx (bit 11 of the CT=1) 



or: 



octal lOlxxx (bit 11 of the CT=0) 
where xxx equals values to be defined in the following paragraphs. 
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6-4. UIG OPCODE BLOCKS. The UIG instructions are decoded in blocks of 16 opcodes that 

must be further decoded by the microcode. 

The control store opcode block selection is determined by the value of bits 8 through 4 in the CT 
Register (still part of the coded UIG instruction). In general, a secondary index (composed of bits 3 
through 0) directly determines which address in the first 16 locations of the selected opcode block will 
be used for entry. 

Bit 11 in the third octal digit (105xxx or lOlxxx) of the UIG instruction in CT can be used as an 
indicator in your microprogram by the CAB microorder. For example, the CAB microorder in the 
STORE and BBUS fields will test bit 11 of the CT register for a or 1 to select either the A- or 
B-register, respectively. 

The value of bits 8 through 4 of the UIG instruction in the CT register is not directly translatable into 
the complete address of the control store opcode block but these bits determine the address of branches 
in the control store base set JTAB Jump Table, which in turn direct a branch to the opcode block. 

6-5. USER AREA UIG BLOCKS. The control store hexadecimal addresses ranging from 3000 

through 3FFF are directly accessible and comprise the primary user's microprogramming area. The 
Ik-word modules of control store from 2000 (hex) through 2FFF (hex) may be used by user microcode 
but these modules may be claimed for future HP firmware enhancement packages. The available user 
control store is shown in the control store map of Figure 2-3. 

The blocks of opcodes 101500-101577 (octal) or 105500-105577 (octal) are dedicated to the user. The 
101600-101677 (octal) or 105600-105677 (octal) opcodes may be used by the user, with the reservation 
that future HP fii-mware packages might reclaim these opcodes. For the same reasons, the Ik control 
store modules from 2000 (hex) to 0x2FFF (hex) may be used by the user with the reservation that they 
may be used by HP for optional enhancements to the A700 instruction set. 

Each opcode block has 16 possible control store software entry points provided by the UIG instruction 
secondary index (UIG instruction bit 3 through combination). The secondary index directly de- 
termines which control store address (of the first 16 locations in the selected module) will be loaded 
into the CT Register. The range of values for UIG instructions you should use to access the respective 
control store addresses are summarized below. Since each opcode block can be entered at 16 different 
locations, there are 128 direct entry points into the recommended user's microprogramming area. 

The UIG instruction (binary codes) blocks you can use are the following: 

101500 through 101577 or 105500 through 105577, and 

101600 through 101677 or 105600 through 105677 which may be used by HP for future A700 
optional instruction set enhancements. 
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6-6. HP RESERVED UIG BLOCKS 



The opcode blocks of control store have software entry points that are not available to the user. These 
include the software entry points for the base set, and for HP enhancements such as the Floating Point 
Processor and Scientic Instruction Set microcode areas, etc. 

Some of the opcodes for HP enhancements are reserved for future firmware packages so until these 
packages are available they may be used with discretion by the user. The opcodes that are currently 
defined instructions are in the base set for each instruction group. Those that are HP- or user-reserved 
are decoded in the &USER section of the base set. Refer to Appendix E if you require more information 
about the base set. 

To avoid access to the HP reserved area do not use the following opcode blocks of UIG instruction 
(binary codes) for main memory to control store linking: 

105000 through 105337, and 

101400 through 101477 or 105400 through 105477, and 

101700 through 101777 or 105700 through 105777 

The EIG (Extended Instruction Group) and DMS (Dynamic Mapping System) macroinstructions are in 
the UIG. The base set listing (Appendix E) shows the DMS microprogram has two "table goto" lines to 
fully decode the 64 separate opcodes that are included in this group. (All 64 of these opcodes are "used" 
by this group, although some of the opcodes map onto other opcodes or some are unused.) 

The two "table goto" lines are included here for reference: 

forigin Ox18b$ •DMS jtab entrypoint 

gototbl DMS_TBL1 , ator/n; »opcode5 1 0(x01 )700-1 0(x01 )71 7 

lorigin Ox18c$ •DMS Jtabl entrypoint 

gototbl DMS_TBL2, ator/n; •opcodea 1 0(x01 )720-1 0(x01 )737 

These microinstructions branch outside of the JTAB jumptable, and the actual next address is the 
target address with bits 3-0 of the macroinstruction inserted in bits 3-0 of control store address. 



6-7. USER'S AREA MAPPING EXAMPLE 

A typical example of mapping to the user's microprogramming area through the base set using a 
recommended UIG instruction is discussed below. Information about the proper procedure to use in 
linking to main memory and for returning to main memory is also included. 
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Suppose that your main memory program has a UIG instruction 105602 (octal) written into a 
particular location designated "I." The UIG instruction can have address pointers and/or operands in 
main memory locations I+l, 1+2, etc. 

For example: 

MAIN MEMORY 

Location Contents 

I 105602 

I+l 

1+2 



o o 

o o 

6-8. BRANCHING TO YOUR MICROPROGRAM 

During execution, UIG instruction 105602 maps to micromemory address 3002 (hexadecimal) as 
follows. The previous microprogram (presumably an HP macroinstruction) performs a fetch of your 
UIG opcode and returns to the line after the JTAB of the JTAB loop being used. The JTAB loop is 
listed below for reference. 

Jtab: 
■t 

Normal jtab location. 

Loop until interrupt. 

y 

Jtab, •Subroutine call to macroinatruct ion 

« emulation routine, 
elf, • put the flag into known state 

ip, • Inc P to address after opcode. 

cwrb:"b, bbus/t; * Force orders that are required for 

* the MRG decode to begin memory 

• references in this cycle, 
if not intf goto Jtab, "Loop until interrupt causes 

acc:"ones; • a fetching to be ignored, 

interrupt: tlNTERRUPT: 

goto int_vector, * branch to interrupt handler 

ct:»istj • load interrupt priority code into ist 

The previous microprogram would have returned to the "if not intf line which checks for interrupts. If 
an interrupt occuiTed and the fetch was held off, the next microinstruction to be executed would be the 
"interrupt:" line and the base set would have executed the interrupt. If no interrupt occurred, then the 
next microinstruction to be executed would be the "jtab:" line, which begins your microprogram. 

The JTAB microinstruction, in conjunction with the look-up table, would produce lAA (hexadecimal) 
for the next microaddress. At this location in micromemory, the base set has a microinstruction that 
branches to your microprogram, as shown here: 

$origin Ox1AA$ "opcodes 101 (or 105) 600-637 

gototbl 0x3000, "branch to the user opcode 

stor/n; "initialize the n register with OxF 
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The "gototbl 0x3000" function, which is the paraphraser representation for "op5/jmp, adrl/ 
Ox3000,alu/spec", branches to one of 16 microaddresses from 0x3000 to 0x300F, depending on the 
contents of the CT register. The lower four bits of the CT register are substituted for the lower four bits 
of the microaddress branched to after the GOTOTBL (CT contains the user instruction). Because the 
lower four bits of CT contain the value 2, the next microaddress to be executed is 0x3002. 

Upon reaching the user microprogi-amming area (at address 0x3002), the following situation exists: 





CONDITION 


CT 


= 105602 (octal) 


ace 


= FFFF (hexadecimal) 


P 


= 1 + 1 


F 


= 


n 


= (hexadecimal) 



REASON 

Loaded by the previous fetch. 

Loaded by the "if not intf ' line. 

Due to the "ip" in the JTAB microinstruction. 

Cleared in the JTAB microinstruction. 

Due to "gototbl" line. 



At location 3002 (hex), your microprogram begins. Typically, the first 16 locations in a user module are 
set up with unconditional branches to the actual user microroutine but you may use the remaining 
fields to perform important functions such as reading the next memory address. 



location microinstruction 



0x3000 


goto userO; 


0x3001 


goto uaerl ; 


0x3002 


goto user2. 




rdp, ip. 




a:-a-acc; 


0x3003 


goto user3; 


Ox300F 


goto uaerF; 


0x3010 


uaer2: 




call INDREAD; 



comments 
•entry point 
•entry point 1 
•my instruction! 

• begin read of next location 

• increment the A register 
• 



•continue my instruction! 
•read from the memory address 
• etc. 



From location 3010 (hex), your microprogram can continue execution. 



6-9. RETURNING TO THE BASE SET 

Once you have completed your microprogram, you must return to the base set to have it continue 
execution of the micromachine operations. (Remember, when the micromachine is executing your 
microprogram, you are in complete control.) It is your responsibility to fetch the next macroinstruc- 
tion, and for this purpose, you should be sure to set the program counter to the next macroinstruction 
to be executed after your user-group macroinstruction. 

In this example, the program counter was already set to the next macroinstruction address, so the last 
microinstruction to be executed could be simply the following: 



fchp, rtn; 



•return to the base set 
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6-10. CALLING MICROPROGRAMS 

Procedures for invoking your microprograms from assembly language and high level languages are 
described below. The basic concepts of invoking microprograms and passing parameters should also be 
evident from this information. 

In the RTE-A.l environment, the best way to assign a name to a user opcode is through the RPL 
mechanism of Macro/1000. With this feature, your application programs can call your microprograms 
or software-equivalents for your microprograms, and the choice is made at the time the program is 
linked. Create a file with the names of your opcodes RPL'ed to the user opcodes you have chosen. The 
following is an example: 

MACRO, L 

NAM MYRPL,7 

ENT MYDP,USER1 ,USER2,USER3 
THIS FILE CREATES THE EXTERNAL RPL'S WHICH ARE LOADED 
WITH THE PROGRAM TO DEFINE MY USER OPCODES 

MYOP RPL 105500B 
USER1 RPL 105501B 
USER2 RPL 105502B 
USERS RPL 105503B 
END 

After you have created a file with opcode names, you can call your microprogram from assembly 
language as follows: 



MACRO, L 








NAM 


TEST, 


7 




ENT 


TEST 






EXT 


MYOP, 


ISC, NMBR, IBUF 


TEST NOP 








JSB 


MYOP 




EXECUTE MY OPCODE 


DEF 


• ♦4 




WHICH 


DEF 


ISC 




TAKES 


DEF 


NMBR 




THESE 


DEF 


IBUF 




PARAMETERS 


JMP 


TEST, 


I 




END 


TEST 







This microprogram accesses its parameters from memory locations pointed to by succeeding DEFs, and 
the location directly after the opcode points to the next instruction to be executed after MYOP (the 
.ENTR calling sequence). (See RTE-DOS relocatable library for complete details.) 

If your microprogram complies with the .ENTR calling sequence as this microprogram does, you can 
call your microprogi-ams directly from FORTRAN/1000 or Pascal/1000. 

In FORTRAN: 

C Execute my microprogram 

CALL MYOP(ISC,NMBR,IBUF) 

In Pascal: 

MYOP(ISC,NMBR,IBUF); (execute my microprogram) 
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If your microprogram accepts parameters in the A, B, X, Y, E, and registers, or does not comply with 
the .ENTR caUing sequence, you must access your microprogram directly from assembly language. 
Otherwise, you must provide an assembly language interface routine to access your microprogram 
from high level languages. Following the .ENTR calling sequence is preferable. Good examples of HP 
microprograms that honor the .ENTR calling sequence are those of the Vector Instruction Set. (Note: 
VIS information will be furnished as an update to this manual since it is not available at the time of 
the first printing.) 

In any case, while linking your application program, relocate the RPL file after you relocate your 
application program to define your microprogram entry points. Make sure your microprogram has 
been correctly loaded with WLOAD, and then your application program is ready to run with 
microcoded enhancements. 



6-11. HANDLING INTERRUPTS 

If your microprogram executes for a period longer than 25 microseconds, you should make yoiu- 
microprogram interruptable so that interrupt response time on the processor can be acceptable. This 
requires that you be able to either save the current state of your microprogram in memory locations or 
in registers, or simply restart your microprogram from scratch. Either way, you must periodically 
check the "intp" condition, and if it is true, perform a fetch ("fchp" or "fchb") of the fetch address of your 
user-group opcode. (The fetch will be held off by the interrupt condition, and the base set will handle 
the interrupt condition after you do a return back to the JTAB loop.) 

6-12. EXAMPLE OF CHECKING INTERRUPT CONDITION 

As an example, at a convenient point in your microprogram you might include the following 
microinstructions: 

if intp goto quit; •better check for interrupts now! 

.... * 

quit: •have to quit now due to interrupts 

p:«fa, • reload the program counter 

fchb, rtn; • fetch and return to the base set 

This procedure will work if you can return directly to the base set using the return address on the 
subroutine stack. However, if you have to check interrupts within a subroutine of your own, you can 
jump to the location specified in the base set as INST_RESTART (at location OxDO) and the base set 
will handle the interrupt. For example: 

if intp goto quit; •check for interrupts 

... • 

quit: • 

goto INST_RESTART p:-fa;»let the base set handle the fetch. 
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6-13. MICROCODE TIME-OUT 

You should be aware that if your microprograms execute for longer than 10 milliseconds without 
servicing interrupts, your microprogram may be subjected to a microcode time-out. When this occurs, 
your processor will perform an Unimplemented Instruction Trap (UIT) interrupt (on YOUR user- 
group opcode). If you are operating within the RTE-A environment, RTE-A will abort execution of the 
program which called your microprogram. 



6-14. REGISTERS RESERVED FOR THE USER 

Your microprograms will probably be similar to some of the already-existing HPIOOO instructions, 
such as FAD, or ENTR, so be sure to look over the microprograms for these instructions. These 
microprograms use the registers of the machine in exactly the same way that you may use them to 
hold temporary values. If you need to define registers for user-defined functions, the HP base set has 
allocated registers for you that it will not alter. The directly accessible register USR (R07) may be used 
as a user-defined register, as can registers 4 through 7 of the PRIN register file. 



6-15. MICROPROGRAMMING CONSIDERATIONS 

Because the base set manages all of the functions of the processor, you must perform certain functions 
(and refrain from performing others) to enable the base set to continue execution after your 
microprogram has finished. Normally, problems with your microcode will not stop micromachine 
operation so that other users in an RTE environment cannot continue using the system while you are 
debugging your microcode. However, the following rules should be followed for allowing the base set to 
continue doing its job. 

After the fetch and before your return observe the following: 

1. Do not store to or otherwise alter the CT or 1ST registers. 

2. Do not initiate any memory or I/O read or write. 

3. Do not alter the privileged registers in the PRIN register that are used by the base set; i.e., alter 
only PRIN registers 4 through 7. 

4. Do not initiate I/O requests without having previously established that lORQ is present. (You 
should generallj^ not be executing I/O requests unless you have special hardware with which to 
interact or a microcoded driver.) 

5. Do not execute the JTAB microorder. 

6. Do not alter the HP-reserved directly accessible registers HP1,HP2. 

7. Do not alter the MEMR register unless you replace it before you fetch and return. 

8. If your microprogram is long, be prepared to honor interrupts. 

9. Do not alter the page mapping registers (through "map" in the STOR field) unless that is a 
function of th(} microprogram. 
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WRITING MICROPROGRAMS 



SECTION 



With the information in this final section of Part II you will be able to write your microprograms so 
that they will be accepted by the Paraphaser. If properly prepared, your microprogram will be 
processed (using information in Section 8) to generate micro-object code which is ready to load in WCS 
for execution in the computer. This section provides: 

• A suggested method for preparing your microprograms. 

• A description of the paraphraser labels, directives, fields, and other rules for preparation. 

• Paraphraser control methods. 

• Methods of making microprogram starting address assignments and making other modifications 
using directives. 

The information in this section requires as a prerequisite, a study of the preceding sections (particu- 
larly Section 4 and 6). 



7-1. PLANNING AND PREPARATION 

Plan your microprogram essentially the same way as you would plan an Assembly language program 
but base the objective on the concepts described in Section 1 for microprogramming. Steps that must be 
taken to achieve the objective should be clear and organized. The logical sequence for the 
microprogram can be prepared in flowchart form for easier programming. 

When preparing your microprogram, take full advantage of your system's EDIT/1000 capability. The 
editor provides the tools for generating the source code and storing it in a disc file. The files can be 
accessed later for editing and microassembling. Complete instructions for using the editor are con- 
tained in the HP EDIT/1000 Reference Manual, part no. 92074-90001. 

The paraphraser program MPARA will accept RTE text files (type 4) as source files. Its output consists 
of two files as follows: a listing file (tjrpe 4) and a microcode file (type 5). 

You can include along with the microinstructions in your program as many comments as you feel are 
appropriate. Comments are to help you correct the program for errors or to help you explain your 
program so that others can understand it at some later time. Paragraph 7-3 covers the details you will 
need on these subjects. 



7-2. THE PARAPHRASER 

The Paraphraser is the microcoding language of the A700 processor. It is an RTE microassembler for 
translating your microprogram "free format" source file into binary object code. After running the 
paraphraser with the source microcode program, the object microcode is stored in a file, the number of 
errors are printed on the output device, and optionally a listing of address labels are output. 

7-1 



Writing Microprog:rams 



When writing your microprogram in the free-format manner allowed by the paraphraser, it is not 
necessary to set up Tab spacing for fields or write a microorder for each field since the paraphraser will 
automatically set up and fill in the fields as required for each word type. 

The program Control Statement at the beginning of the microprogram provides you with the options of 
producing an address label listing, and a floating field listing. These listings are described in Section 8. 

The Paraphraser program is named MPARA. MPARA is written in Pascal with assembler en- 
hancements, and it will run on an HP 1000 system in a 32k byte partition. MPARA must be loaded 
into a disc file of your system. Loading and using the MPARA is covered in Section 8 of this manual. 
MPARA allows your program to contain definitions of a combined total of about 600 address labels, 
data labels, and microorders. 

The resulting binarj' object code is in a format that is recognized by the WLOAD utility program used 
to load the HP 12153A WCS card and to generate a PROM format for firmware to be installed on the 
HP 12155A PCS card. 

The rules for preparing a program for the paraphraser are described in this section. The hardware/ 
software environment for the paraphraser is described in Section 3. 



7-3. PARAPHRASER RULES 

The Paraphraser accepts 80-character variable-field-length source records. The 80-character line is 
wide enough to contain the longest microorder phrase and a comment on the same line. 

The "free-format" construction of microinstructions means that you can write them in sentence-like 
groups of expressions. These expressions include microorders, which are translated by the paraphraser 
into microcode. They do not have to be organized rigidly into fields of a certain number of bits, or in a 
certain order as required by conventional microassemblers. 

All the fields do not have to be specified in the microinstruction sentences since the paraphraser will 
automatically put "default" microorders in the proper microinstruction fields. Operation Code (OP 
Code) microorders determine the microinstruction word type and the field requirements. 

Source programs contain the following elements: 

• Control statement. 

• Comments. 

• Sentences which are composed of microinstruction specifications including field/microorder ex- 
pressions or phrases, numbers, labels, and directives. 

7-4. CONTROL STATEMENT 

Every microprogram must start with a control statement in the first line. This statement must start in 
column one with the syntax description file mnemonic MPARA. The MPARA mnemonic is followed by 
one or more command options spaced by commas. The options are as follows: 
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• Option L for a label listing. 

• Option F for a floating field listing. 

• An optional name and comment field that is displayed by WLOAD when reading microcode files. 
Format: 'NAM, comment';. 

Examples of control statements are the following: 

MPARA,L,F; •Control statement for label and floating field listings 
MPARA.F, 'NIS, Vector Instruction set microcode'; 
MPARA, 'SORT, integer sort microcode ' ,L ; 



7-5. COMMENTS 

A comment either follows an asterisk ( • ) or it is enclosed in a set of brackets ( < ...}). Note that these 
are the upper case brackets (equivalent to capital letters) on Hewlett-Packard terminals. Comments 
are ignored by the paraphraser and passed on to the list device. Asterisk noted comments are useful for 
general commenting. Bracketed comments are useful for numbering the entries in a microcode jump 
table, for comments requiring several lines, and for nulling out sections of code as you go through the 
debugging process. 

Rules for comments are the following: 

1. A comment can start in any column on any line. 

2. When a comment is defined by an asterisk ( • ) the remainder of the line is ignored. The asterisk 
must be repeated on each comment line. 

3. When a comment is defined by an opening bracket { < ) it must be completed with a closing bracket 
( > ) which need not be on the same line. A microinstruction can be included on the same line 
following a closing bracket. If there is a opening bracket with no closing bracket, an error message 
will be produced. An example of a comment follows where GOTO is a microinstruction: 

<THIS IS A COMMENT} GDTQ 0; •THIS IS ALSO A COMMENT 

{THIS IS A COMMENT INCLUDING AN ASTERISK •} GOTO 0; 

GOTO 0; •< }THIS IS A COMMENT DUE TO THE ASTERISK 



7-6. NUMBERS 

MPARA lets you specify values that are decimal, hexadecimal or octal. The base of the number is 
determined as follows: 

a. If the number begins with "1-9", it is interpreted as decimal number; for example, 2048 or 8196. 

b. If the number begins with "Ox" or "OX", the rest of the number is interpreted as hexadecimal; for 
example, OxFFFF or OXIAF. 

c. If the number begins with "0" (and not "Ox" or "OX"), the rest of the number is interpreted as octal; 
for example, 0777 or 0127772. 
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7-7. MICROINSTRUCTION SENTENCE 

A microinstruction sentence is specified as a group of labels, directives, and microinstruction 
specifications which is ended by a semicolon ( ; ). 

A microinstruction sentence can be on more than one line, and separate phrases in the same sentence 
are separated by a comma ( , ). An asterisk noted comment can be included on any line following a 
microinstruction sentence, phrase, or directive. Sentences, phrases, and paraphraser errors are 
exp)lained in detail below under Writing Microinstructions. 



7-8. LABELS 

MPARA allows you to give symbolic names to microaddresses. These names are called "labels." A label 
consists of a set of consecutive characters followed by a colon ( : ) and a blank. The accepted set of 
characters in the label symbol are described by the following: 






First Character: A-Z, a-z, period (.), underscore ( ), "at" symbol (@). 

Characters After First: A-Z, a-z, 0-9, period (.), underscore (_), "at" symbol (@). 



• Termination: Label continues until a colon (:) is found. 

• Length Allowed: Any length, up to a full line. 

• Uniqueness: Labels must be unique in the first eight characters. Lower case letters are equivalent 
to upper case letters (A-Z = a-z). 

MPARA allows you to specify more than one label per sentence and to include multiple directives per 
sentence. 

The following is a simple example: 

LABEL1 : 'both labels have the same value 

LABEL2: * 

GOTO LABELS; • 

The following is a more complex example: 

LABEL1 : $c>rigin 50$ •both labels will actually have the 

LABEL2: »value decimal 50, even though LABEL1 

GOTO LABEL3; •occurs before origin directive 

The following is an very complex example: 

LABEL1: $arigin 50$ •both labels will actually have the 

LABEL2: $orlgin 100$ •value decimal 200! 

GOTO LABEL3 •Note that the last origin directive 

$ORIGIN 200$ ; • specified is the one that counts 

The address of the last origin directive seen by MPARA takes precedence over any other origin 
directive addresses. 
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The following lines contain examples of both good and bad labels: 



thia_is_a_good_label : •good 

hello: vgood 

thi9_/is_a bad_lBbel: "it has the unacceptable character C/) 

8thia_ia_bad_al3o: *it begins with a number 

hello_worId: *these two labels are not unique in their 

hello_wor Ids ; 'first eight characters. 

woops : •bad.. the colon must follow the symbol 

For good labels, the label takes on the value of the following microinstruction's microaddress. For bad 
or duplicated labels, an error message is produced and the rest of the microinstruction is skipped. 



7-9. DIRECTIVES 

Directives are commands you give to MPARA along with your microinstruction specifications. A 
directive is used for one of the following: setting the current microaddress to a value, aligning the 
microaddress forward to a 16 or 64 microword boundary, or defining new names for microorders. 

When MPARA detects any bad directive, it will output an appropriate error message and skip the 
current microinstruction. 

The directives of MPARA begin and end with a dollar sign ($ ). 

7-10. ORIGIN DIRECTIVES. Directives set the address where MPARA places an associated 

microinstruction. The following examples give good and bad origin directives: 

$origin 77$ •set origin to decimal 77 

$origin Ox1a$ •set origin to hexadecimal 1A 

$origin 017$ •set origin to octal 17 

$origin 01A$ 'bad origin value 

$orign 0$ •bad directive 

$origin go_to_begin$ •bad directive (too many parameters) 

Normally when MPARA begins, the current microaddress is automatically set to zero and incre- 
mented for each successive microinstruction. However, with the origin directive you can set the 
address to some other value. 

The following specification for two simple microinstructions illustrates the way that the origin 
directive interacts with labels and other directives: 

$origin 50$ •set the microaddress to 50 decimal, 

OTHER_LABEL: •define a label 

GOTO THIS_IS_A_LABEL; •this microinstruction is a jump 

$origin 100$ •set the microaddress to 100 decimal 

THIS_IS_A_LABEL: •define a label here 

GOTO DTHER_LABEL; •this microinstruction is a jump 

These two microinstructions perform a jump from microaddress 50 to microaddress 100 and back. 

Note that the semicolon ( ; ) is a special character. (However, any semicolons inside of comments are 
ignored.. .see the comments section.) The origin directive has only one parameter: the value to which 
the current microaddress should be set. 
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7-11. ALIGN DIRECTIVE. Sometimes it is convenient to be able to align the current 
microaddress so that bits 0,1,2,3,4 or more of the microaddress are zero. With this processor, you will 
most often align to a 64-word block. You might do this to group sections of code to best take advantage 
of short jumps. 

Also, you will align to 16-word blocks to set up jump tables for use with the CT30 and CT74 
microorders. The format of the align command is as follows: 



tallgn num$ 
where num is the microaddress block to which to align. 
Example: 



ENTER_FOR_ JUMPTABLE : 
torlgin 20$ 
GOTO JTABLE, CT30; 

JTABLE: Salign 16$ 
{00> GOTO LABEL 1 ; 
^Q^> GOTO LABEL2; 
<02> GOTO LABELS; 
{etc 



•this microinatruct ion 

• does a 

• computed jump 

•align this jumptable to location 32. 
• 

• (refer to Table 4-2 for 

• a description of CT30) 

> 



7-12. DEFINE DIRECTIVE. The define directive allows the user to specify the values to be 
assigned to microorders that are not already defined in MPARA. The format of the define directive is 

SDEFINE fld/ord value$ 

where fid is the name of the field in which you want to define the microorder, ord is the name of the 
microorder you want to define, and value is the numerical value you want to assign to the microorder. 

The symbol you specify for the microorder must follow the same character selection rules as for a label. 
This directive is useful for defining the names of bit masks in the immediate data field, defining the 
values of labels that exist outside of your source file, or for giving new and meaningful names to the 
register file registers. 



Some examples follow: 

♦DEFINE ADRL/LOOP 0x640$ 
$DEFINE DAT/BITMASK Ox55SB$ 
$DEFINE ABUS/F1L 016$ 
$DEFINE BBUS/F1L 016$ 
$DEFINE ST0R/F1L 016$ 
CALL LOOP; 
F1L:-F1L AND BITMASK; 



•this is a label I'll use later 

•this is an immediate data symbolic label 

•define a name for 

• a scratch file register to be used 

• to hold a floating point operand, 
•use the label I defined. 

•use the scratch file register and 
•the immediate data label I defined. 
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7-13. MICROINSTRUCTION SPECIFICATIONS 



Microinstruction specifications can be freely combined with labels and directives in the same 
microinstruction sentence as required for the most efficient micromachine operation. 

The specifications of the microinstruction sentence consist of the microorders defined in Section 4 
along with any acceptable numerical parameters added by the microprogrammer. They can be written 
either as field/microorder expressions which force the microorder into the specified field unless it 
produces an unacceptable microinstruction, or simply as phrases acceptable to the paraphraser for 
interpretation into field/microorder expressions as defined below under Description of Phrases. 



7-14. WRITING MICROINSTRUCTIONS 

Microinstructions are written in free-form sentences that are to be translated into binary code by the 
paraphraser. It is not necessary to specify all fields of the microinstructions since the specified field or 
fields will cause the paraphraser to produce defaulted microorders in the remaining fields as required. 
The defaulted microorder requirements are determined by the particular word type of the 
microinstruction; and the particular word type is determined by the op code (operation code) field. 
Sometimes the word type is specified in your program but usually it is deduced by the paraphraser 
from the phrase you have written for some other field. When a microorder is specified for a particular 
field (called a "forced field phrase"), the microorder is forced into that field as long as it is acceptable to 
the paraphraser. 

When your microprogram is processed by the paraphraser, it interpretes the phrases, directives, and 
labels, adds defaulted microorders according to word type, sorts them into field/microorder format, and 
then translates the field/microorders into microcode to form complete microinstructions. An example 
microprogram source file is shown in Figure 7-1. 

7-15. SENTENCES 

The microinstruction sentences of your source file are a group of characters followed by a semicolon ( ; ). 
MPARA translates your sentences into microinstructions. MPARA does not limit your options in 
expressing microinstructions, it increases it. 

You can represent any valid microinstruction by an MPARA sentence. Also, it is extremely versatile; 
e.g., MPARA will let you insert mnemonics in the fields, and even will let you use phrases that look 
like PASCAL code such as (a;=b-l-100;). The free-format syntax of MPARA gives you lots of room for 
adding comments (a highly recommended practice). See the sample microprograms in Section 12 for 
examples of microcode written for MPARA. 



7-7 



Writing Microprograms 



Note: Numbers on the left are line numbers in tlie source file. 

01 MPARA.L; •memory reference utilities <81 1 1 1 . 1 3S7> 

02 

03 Jdefine Hdrl/TDI DISABLE Ox7dO$ 

04 

05 INDREAD: $origin Ox7cO$ »INDIRECT RESOLUTION UTILITY 

06 Tiop:"t, rdb; •lat level: start new read 

07 if not b15 then rtn, • if address was direct then return 

08 s6:"rna + one; • save address+1 of read in a6 

09 nop:"t, rdb; •2nd level: start new read 

10 if not b15 then rtn, • if address was direct then return 

11 36:'rna + one; • save ad.dress + 1 of read in s8 

12 indrloop: nop:«t, rdb; •Srd level and beyond: start new read 

13 if not bis then rtn, • if address was direct then return 

14 aG:«rna + one; • save address+l of read in s6 

IE) call TDI..DISABLE , nop:-memr; •assure that interrupts are enabled 

18 goto indrloop; "loop until indirect is resolved 



Line 01: Control Statement. MPARA required for the paraphraser to read its syntax description file when 
executing, L is an option that produces a label listing, and anything after the asterisk is a comment (*memory ). 

Line 03: Directive to MPARA defining a symbolic label for the subroutine TDI_DISABLE which is presumably in 
another file or in the A700 base set ROMs. 

Line 05: Directive to MPARA that specifies that the current microinstruction will be placed at microaddress 7C0 
(hexadecimal). It defines the symbolic label for the microaddress as INDREAD in the ADRL field. 

Line 06: Two microinstruction phrases. The (nop:=t) phrase means that MPARA will set the STOR field to the 
NOP microorder, the ALU field to the ADBC microorder (pass from BBUS to YBUS), and the BBUS field to the T 
microorder. The (rdb) phrase means that the SPO field will contain the RDB microorder. Note that these phrases 
could have been reversed, or on different lines since the MPARA language is free-format. 

Lines 07 and 08: Two phrases of one complete microinstruction sentence. The (if not b15 then rtn) is a conditional 
phrase that says that MPARA will set the OP2 field to the RTNF microorder, and the CNDX field to the B15 
microorder. The (s6:=ma-i-one) is an arithmetic phrase which says that MPARA will set the STOR field to the 86 
microorder (a scratch file register), the ALU field to the ADBC microorder, the BBUS field to the MA microorder, 
and the SPO field to FCIN. 

Lines 09 through line 14: Contains microinstructions identical to those explained previously. 

Line 12: Defines symbolic label. Creates microorder INDRLOOP in the ADRL field with a value of 7C4 
(hexadecimal). 

Line 1 5: Contains a branch phrase that loads the OPS field with JSBL, and the ADRL field will contain the value of 
the TDI_DISABLE microorder defined in line 03. The (nop:=memr) is an arithmetic phrase similar to line 06, 
except that the BBUS field will contain the MEMR microorder. 

Line 1 6: Contains a branch phrase that causes the microprogram to loop. Note this microinstruction specifies the 
contents of the OPS and ADRL fields but does not specify the BBUS, ALU or STOR fields. These unspecified 
fields default to the ACC, ZERO and NOP fields, respectively. 



Figure 7-1. Example of Microprogram Source File 
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7-16. PHRASES 



Sentences in MPARA, as in the natural language analogy, can be subdivided into phrases. A phrase in 
MPARA is a group of characters that specifies one or more microorders. The statement "one or more" is 
important because some of the microorders of the micromachine are interrelated; e.g., the source and 
destination of an ALU operation along with the ALU operation itself 

Phrases are a "short cut" to writing microcode. For example, MPARA allows you to write the phrase 
"A :=B" to specify that the STOR field gets the A microorder, the BBUS field gets the B microorder, 
and the ALU field gets the ADBC microorder. Written out completely in microorders this is "STOR/A, 
BBUS/B, ALU/ ADBC", where a "microorder" inserted in a "field" is represented as "field/microorder." 

However, you must have an understanding of the micromachine (covered in Section 2). You should 
also have a working knowledge of the microorders, the fields, and the microinstruction Word Type 
formats (covered in Section 4). You should know what fields you are using when you specify a phrase. 
Because you are microcoding, you probably want to optimize the given task. Also, the amount of 
micromemory available is limited so you'll want to do as much operation in one microcycle as possible. 
This will cause your microprograms to run faster. 

Phrases recognized by the paraphraser are described in detail in this section of the manual under 
Description of Phrases. 

7-17. WRITING PHRASES 

Phrases in MPARA are separated by commas, and the last phrase of a microinstruction sentence ends 
with a semicolon. You can chain together phrases until MPARA accepts your sentence or finds an 
error in it. If MPARA accepts your sentence, then it will produce a microinstruction in the microcode 
file. If MPARA does finds an error, it will put an error message in your listing file and skip to the next 
microinstruction sentence. 

As with any MPARA sentence, you need not put the whole phrase on one line of your source file. Here 
are some examples: 

IF NOT YZ .If the YBUS was not zero in the 

GOTO 63; •preceeding cycle, then branch. 

IF INTP CALL SUBR01 ; »If interrupts are present then 

•call a subroutine 

Note that some phrases have more than one meaning. For instance, the GOTO phrase can mean 
OP4/JMP,ADRS/0 for a short jump or OP5/JMPL,ADRL/0 for a long jump. In any case, MPARA will 
attempt to chose the appropriate meanings so that a valid microinstruction will be constructed. 

7-18. DEFAULTED FIELDS 

When your microinstruction sentence does not fill every field in the word type you are using, MPARA 
will attempt to default the remaining fields. However, not all fields can be reasonably defaulted (refer 
to Bad Field Default below). 

One example of field defaulting is the following sentence: 
NOP; 

in which the OPl field gets the no-operation (NOP) microorder, the SP2 field defaults to NOP, the SPO 
field defaults to NOP, the ABUS defaults to ACC, the BBUS defaults to ACC, the STOR field defaults 
to NOP, and the ALU field defaults to ZERO. 
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An even briefer way to specify a NOP microinstruction is to write semicolon ( ; ) as the sentence. In this 
case all of the fields default to the same microorders as when "NOP;" is the sentence and the OPl field 
defaults to NOP. 

The default values are noted in the summary of microorders in Appendix B. 

The following parajjraphs describe some of the errors that MPARA looks for in your microinstruction 
sentences. The Section 8 on Using the Paraphraser covers the listing file and has a complete listing of 
errors and examples. 



7-19. FIELD CONFLICTS. If the sentence that you have specified is written such that it tries to 
fill a field more than once, it will produce an error. As an example, if your sentence was the following: 

A:-B, B:-A; 

the paraphraser would be required to fill three fields of the microinstruction twice (which it cannot do). 



7-20. WORD TYPE CONFLICT. Your sentence selects microorders that exist only in fields of 
different word types. For example, an immediate data (IMM) of operation 6 (0P6) cannot occur in the 
same microcycle as a jump (JMP) of operation 4 (0P4); thus an error is produced if an attempt was 
made to program these in the same microinstruction. 



7-21. UNRECOGNIZABLE PHRASE. If MPARA cannot match one or more of your phrases to 
the acceptable phrases, it will produce an error. For example, if you made a typing mistake and 
specified "GOTTO 0;" as a microinstruction instead of "GOTO 0", MPARA would not recognize the 
phrase. 



7-22. BAD FIELD DEFAULT. Not all of the fields have default values. For example, if you 
specified a phrase that only filled the ADRL (Long Branch Address) field, the paraphraser would not 
know whether you wanted the OPS field to default to JMPL or JSBL. Also, the Condition Field 
(CNDX) and ALU Special (ALUS) fields do not have default values. Bad Field Defaults will produce 
errors and the error messages will be stored in the list file. 
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7-23. DESCRIPTION OF PHRASES 

Phrases accepted by the paraphraser are described below under several categories as follows: 

a. Branching Phrases 

b. Arithmetic Phrases 

c. Conditional Phrases 

d. Special Phrases 

e. Field-Forcing Phrases 

The phrases you can use are listed below along with the resulting fields for each, and the meaning of 
the phrase. 

A summeiry of phrases is provided in Appendix C. 

7-24. BRANCHING PHRASES 

Branching phrases are used for either short jumps to the current 64- word memory block or long jumps 
to anywhere in the 16k-word control memory. Branching word types are either Word Type 4 for GOTO 
jumps to address; or Word Type 5 for CALL jumps to subroutine; or Word Type 1 miscellaneous 
branches for return from subroutine, no operation, or to decode a macroinstruction. Branching phrases 
are described below. 

JUMP TO ADDRESS BRANCHING PHRASES 



GOTO Bdr 




Fields: 


0P4/JMP ADRS/adr. 


Meaning: 


Short jump to address (adr), 


GOTO adr 




Fields: 


0P5/JMPL ADRL/adr. 


Meaning: 


Long jump to address (adr). 


LGDTD adr 




Fields: 


0P5/JMPL ADRL/adr. 


Meaning: 


Long jump to address (adr). 


SGOTO adr 




Fields: 


0P4/JMP ADRS/adr. 


Meaning: 


Short jump to address (adr) 
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JUMP TO SUBROUTINE BRANCHING PHRASES 



CALL adr 


Fields: 


Meaning: 


CALL adr 


Fields: 


Meaning: 



0P5/JSBL ADRL/adr. 

Long jump to subroutine (adr). 

0P4/JSB ADRS/adr. 

Short jump to subroutine (adr). 

LCALL adr 

Fields: 0P5/JSBL ADRL/adr. 

Meaning: Long jump to subroutine (adr). 

SCALL adr 

Fields: 0P4/JSB ADRS/adr. 

Meaning: Short jump to subroutine (adr). 



GDTDTBL adr 
Fields: 
Meaning: 

CALLTBLadr 
Fields: 
Meaning: 



JUMP TO TABLE BRANCHING PHRASES 

0P5/JMPL ADRL/adr ALU/SPEC. 

See Note below on the decoding of macroinstructions below. 

0P5/JSBL ADRL/adr ALU/SPEC 

See Note below on the decoding of macroinstructions. 

NOTE 

GOTOTBL and CALLTBL are the phrases generally used for 
decoding macroinstructions. After the processor executes the 
JTAB microorder in the control firmware, all macroinstructions 
in the lOlXXX and 105XXX range are decoded to blocks of 16 
consecutive opcodes. Once in the jump table, the firmware does a 
GOTOTBL to a consecutive block of 16 microaddresses, based on 
the low four bits of the macroinstruction in CT (instruction 
register). 

For example, if the macroinstruction in CT (instruction register) 
is 105005 the GOTOTBL phrase is "goto 0x1000;", the firmware 
will branch to location 1005 (hexadecimal). You should place 
jumps to your code in these locations, or jumps to the unim- 
plemented opcode handler in the control firmware. CALLTBL is 
the same as GOTOTBL except that it results in a "jump to 
subroutine" (the current microaddress plus one is pushed onto the 
subroutine stack). 
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The miscellaneous branches are the following: 

NOP 

Field: OPl/NOP 

Meaning: A NOP (no operation) will not perform a branch or return; instead, the current 
address is incremented to the next microinstruction. 

JTAB 

Field: OPl/JTAB. 

Meaning: The JTAB microorder is a special microoder for decoding macroinstructions. Do not 
use this microorder unless you are changing the method of decoding mac- 
roinstructions and handling interrupts. JTAB performs a "jump to macroinstruction 
subroutine" to a microaddress in the range of hexadecimal 100- IFF (refer to the 
base set subroutine for FPLA). 

RTN 

Field: OPl/RTN 

Meaning: Return to the microaddress on the micromachine stack, and decrement the stack 
pointer. Used for returning from subroutines that write, or to return from your 
microroutine to the control firmware. 



7-25. ARITHMETIC PHRASES 

Arithmetic phrases allow the user to specify the microorders for arithmetic operations. The A700 
computer has a three address architecture, meaning that the inputs to the ALU come from two sources 
that you specify and the output goes to a register that you specify. 

The value on the A-Bus (as specified by the ABUS or DAT fields) can be one of the internal-register file 
registers or the immediate data value specified in the microinstruction. The value on the B-Bus (as 
specified by the BBUS field) can be any of the readable registers on the machine. The destination of the 
Y-Bus (as specified by the STOR field) can be any of the writable registers on the machine, or to the bit 
bucket ( NOP ). 

ALU operations and shift operations in phrases are signified by " : = " where the register to be written 
in the STOR field (Y-Bus) is on the left of the expression and the source register and input to the ALU 
(abus or bbus) is on the right of the expression. 

NOTE 

In the arithmetic phrases given below, the lower case (non- 
capital) letters represent registers specified by the programmer. 
Where a register is represented by a bus, (e.g., abus, bbus) the bus 
indicated is the input to the ALU that will be used to transfer the 
contents of named register (internal or any readable register for 
the abus or bbus, respectively). 

The capital letter mnemonics on the left of the resulting field 
expressions are the names of the microinstruction fields. 
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Also, shift and rotate modifiers can be added to the arithmetic phrases, as can microorders that modify 
the carry-in of the ALU. 

Arithmetic phrases are divided into the following categories: 

a. Basic arithmetic phrases; 

b. Arithmetic phrases with shift or rotate; 

c. Arithmetic phrases modifying carry-in; 

d. Arithmetic phrases using alu special field; 

e. Arithmetic phrases with immediate data. 



7-26. BASIC ARITHMETIC PHRASES. The basic arithmetic phrases allow you to specify 
ALU operations involving the ALU field, BBUS field, STOR field, and ABUS field. This includes 
operations such as passing the value of a register through the ALU to another register, or adding the 
contents of two registers and storing the results in another register. 

The basic arithmetic phrases are described below showing the resulting fields and the meaning of the 
phrase: 



BASIC ARITHMETIC PHRASES 

stor : ■ bbua 

Fields: ALU/adbc STOR/stor BBUS 

Meaning: The value of the register specified as "bbus" is passed through the ALU and stored # 
in the register specified as "stor." 

ator : « abua 

Fields: ALU/adac STOR/stor ABUS/abus 

Meaning: The value of the register specified as "abus" is passed through the ALU and stored 
in the register specified as "stor." 

ator :- NOT bbua 

Fields: ALU/cmbc STOR/stor BBUS/bbus 

Meaning: The one's complement of the value of the register specified as "bbus" is stored in the 
register specified as "stor." 

stor : ■ NOT abua 

Fields: ALU/cmac STOR/stor ABUS/abus 

Meaning: The one's complement of the value of the register specified as "abus" is stored in the 
register specified as "stor." 

ator :- ONES 

Fields: ALU/xnor STOR/stor BBUS/ACC ABUS/ACC 

Meaning: The 16-bit quantity which is all ones is stored into the register specified as "stor." 
Note that "all ones" is the two's complement representation of number "-1." 
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stor :• ZEROS 

Fields: ALU/xor STOR/stor BBUS/ACC ABUS/ACC 

Meaning: The 16-bit quantity which is all zeros is stored into the register specified as "stor." 



stor :- ZERO 
Fields: 



ALU/zero STOR/stor 



Meaning: The 16-bit quantity which is all zeros is stored into the register specified as "stor." 
Note that this operation will not update the CF, Y15, B15, SF and ALOV conditions. 

stor :- NOT abus AND bbus 
stor : - bbu9 AND NOT abus 

Fields: ALU/cand STOR/stor BBUS/bbus ABUS/abus 

Meaning: The one's complement of the register specified as "abus" is logically ANDed with the 
content of the register specified as "bbus",and stored into the register specified as 
"stor." 



stor : ■ abus - bbus 

Fields: ALU/sbbc 



STOR/stor BBUS/bbus ABUS/abus 



Meaning: The result of subtracting the content of the "bbus" register from the content of the 
"abus" register is stored in the "stor" register. 



stor : • bbus - abus 

Fields: ALU/sbac 



STOR/stor BBUS/bbus ABUS/abus 



Meaning: The result of subtracting the content of the "abus" register from the content of the 
"bbus" register is stored in the "stor" register. 



stor : • abus + bbus 
stor : ' bbus + abus 

Fields: ALU/addc 



STOR/stor BBUS/bbus ABUS/abus 



Meaning: The result of summing the content of the "abus" register with the content of the 
"bbus" register is stored in the "stor" register. 



stor :- abus XNOR bbus 
stor :' bbus XNOR abus 

Fields: ALU/xnor 



STOR/stor BBUS/bbus ABUS/abus 



Meaning: The result of exclusive NORing the content of the "abus" register with the content of 
the "bbus" register is stored in the "stor" register. 

stor :- abus XOR bbus 
stor :• bbus XOR abus 

Fields: ALU/xor STOR/stor BBUS/bbus ABUS/abus 

Meaning: The result of exclusive ORing the content of the "abus" register with the content of 
the "bbus" register is stored in the "stor" register. 
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at or : - abu9 AND bbu9 
ator : ' bbus HAND abus 

Fields: ALU/and STOR/stor BBUS/bbus ABUS/abus 

Meaning: The result of ANDing the content of the "abus" register with the content of the 
"bbus" register is stored in the "stor" register. 

ator : > abua HAND bbua 
ator :- bbua NAHDabua 

Fields: ALU/nand STOR/stor BBUS/bbus ABUS/abus 

Meaning: The one's complement of the logical AND of the contents of the "abus" register and 
the "bbus" register is stored into the "stor" register. 

ator : ■ abua I OR bbua 
ator : - bbua I OR abua 



Fields: ALU/ior STOR/stor BBUS/bbus ABUS/abus 

Meaning: The inclusive OR of the contents of the "abus" register and the "bbus" register is 
stored in the "stor" register. 

ator :• abua I NOR bbua 
ator : - bbua INOR abua 

Fields: ALU/inor STOR/stor BBUS/bbus ABUS/abus 

Meaning: The inclusive NOR of the contents of the "abus" register and the "bbus" register is 
stored in the "stor" register. 



7-27. ARITHMETIC PHRASES WITH SHIFT OR ROTATE. The arithmetic phrases with 
shift or rotate allov/ single- or double-word shifts of values that can be specified in basic arithmetic 
phrases. 



ARITHMETIC PHRASES WITH SHIFT OR ROTATE 

ator :- LL1 (right side of basic arithmetic phrase) 
Field: SPO/LLl or SPl/LLl 

Meaning: The result of the basic arithmetic phrase is logically left-shifted and stored in the 
"stor" register. 



ator :- LR1 (right side of basic arithmetic phrase) 
Field: SPO/LRl or SPl/LRl 

Meaning: The result of when the basic arithmetic phrase is logically right-shifted and stored 
in the "stor" register. 

ator :- RL1 (right side of basic arithmetic phrase) 
Field: SPO/RLl or SPl/RLl 

Meaning: The result of the basic arithmetic phrase is left-rotated and stored in the "stor" 
register. 
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stor :- RR1 (right side of basic arithmetic phrase) 

Field: SPO/RRl or SPl/RRl 

Meaning: The result of the basic arithmetic phrase is right-rotated and stored in the "stor" 
register. 

stor :- AL1 (right side of basic arithmetic phrase) 

Field SPO/ALl or SPl/ALl 

Meaning: The result of when the basic arithmetic phrase is left-shifted arithmetically and 
stored in the "stor" register. 

at or :- AR1 (right side of basic arithmetic phrase) 

Field: SPO/ARl or SPl/ARl 

Meaning: The result of the basic arithmetic phrase is right-shifted arithmetically and stored 
in the "stor" register. 



7-28. ARITHMETIC PHRASES WITH CARRY-IN MODIFIER. The arithmetic phrases 
with carry-in modifier allow the user to specify microorders in the ALU, ABUS, BBUS, and STOR 
fields, and the FCIN and ACF microorders in the SPO and SPl fields. 



ARITHMETIC PHRASES WITH CARRY-IN MODIFIER 

stor : ■ bbus + ONE 

Fields: ALU/adbc STOR/stor BBUS/bbus SPO/FCIN or SPl/FCIN 

Meaning: The content of the "bbus" register plus one is stored in the "stor" register. 

stor :- Bbus + ONE 

Fields: ALU/adac STOR/stor ABUS/abus SPO/FCIN or SPl/FCIN 

Meaning: The content of the "abus" register plus one is stored in the "stor" register. 

stor : ■ - bbus 

stor :- NOT bbus * ONE 

Fields: ALU/cmbc STOR/stor BBUS/bbus SPO/FCIN or SPl/FCIN 

Meaning: The two's complement of the "bbus" register is stored in the "stor" register. 

stor : • - abus 

stor :■ NOT abus + ONE 

Fields: ALU/cmac STOR/stor ABUS/abus SPO/FCIN or SPl/FCIN 

Meaning: The two's complememt of the "abus" register is stored in the "stor" register. 

stor :- abus - bbus - ONE 

Fields: ALU/sbbc STOR/stor BBUS/bbus ABUS/abus SPO/FCIN or SPl/FCIN 

Meaning: The result of subtracting the content of the "bbus" register and the value one from 
the "abus" register is stored in the "stor" register. 
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ator :« bbua - abua - ONE 

Fields: ALU/sbac STOR/stor BBUS/bbus ABUS/abus SPO/FCIN or SPl/FCIN 

Meaning: l?he result of subtracting the content of the "abus" register and the value one from 
the "bbus" register is stored in the "stor" register. 

ator :• bbua + abus + QNE 

ator :• abua + bbua + ONE 

Fields: ALU/addc STOR/stor BBUS/bbus ABUS/abus SPO/FCIN or SPl/FCIN 

Meaning: The sum of the "abus" register plus the "bbus" register plus one is stored in the 
"stor" register 

ator : - bbua + CF 

Fields: ALU/adbc STOR/stor BBUS/bbus SPO/ACF or SPl/ACF 

Meaning: The sum of the "bbus" register plus the value of the carry flag is stored in the "stor" 
register. 

ator : - abua + CF 

Fields: ALU/adac STOR/stor ABUS/abus SPO/ACF or SPl/ACF 

Meaning: The sum of the "abus" register plus the value of the carry flag is stored in the "stor" 
register. 

ator :- NOT bbua + CF 

Fields: ALU/cmbc STOR/stor BBUS/bbus SPO/ACF or SPl/ACF 

Meaning: The sum of the one's complement of the "bbus" register and the carry flag is stored 
in the "stor" register. 

ator :- NOT abua + CF 

Fields: .ALU/cmac STOR/stor ABUS/abus SPO/ACF or SPl/ACF 

Meaning: The sum of the one's complement of the "abus" register and the carry flag is stored 
in the "stor" register. 

ator :• abua - bbua - BR 

Fields: ALU/sbbc STOR/stor BBUS/bbus ABUS/abus SPO/ACF or SPl/ACF 

Meaning: The result of subtracting the content of the "bbus" register and content of the carry 

flag from the "abus" register is stored in the "stor" register. The content of the carry 

flag is the borrow (BR). 

ator :• bbua - abua - BR 

Fields: ALU/sbac STOR/stor BBUS/bbus ABUS/abus SPO/ACF or SPl/ACF 

Meaning: The result of subtracting the content of the "abus" register and the content of the 

carry flag from the "bbus" register is stored in the "stor" register. The content of the 

carry flag is the borrow (BR). 
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ator :« abua + bbua ♦ CF 
stor :• bbus + abua + CF 

Fields: ALU/addc STOR/stor BBUS/bbus ABUS/abus SPO/ACF or SPl/ACF 

Meaning: The sum of the "abus" register, the "bbus" register, and the content of the carry flag 
is stored in the "stor" field. 



7-29. ARITHMETIC PHRASES WITH ALU SPECIAL. Microinstruction sentences which 
have microorder SPEC (Special) in the ALU field take on a special meaning. The third field that 
contains SPO and SPl in word types 1, 2, 3, and 4 becomes the ALUS field and the word types are 
defined as IS, 2S, 3S, and 4S. The ALUS field must contain the ALUS microorders. The phrases for 
these microorders are listed below. 



ARITHMETIC PHRASES WITH ALU SPECIAL 

ator :- 5MAP ( bbua ) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/SWAP 

Meaning: The upper byte of the "bbus" register is stored in the lower byte of the "stor" 
register, and the lower byte of the "bbus" register is stored in the upper byte of the 
"stor" register. 

ator :- SWZU ( bbua > 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/SWZU 

Meaning: The upper byte of the "bbus" register is stored in the lower byte of the "stor" 
register, and the upper byte of the "stor" register is set to zero. 

ator :- SUIZL C bbua > 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/SWZL 

Meaning: The lower byte of the "bbus" register is stored in the upper byte of the "stor" 
register, and the lower bjrte of the "stor" register is set to zero. 

ator :- ZUY (bbua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/ZUY 

Meaning: The lower byte of the "bbus" register is stored in the lower byte of the "stor" register, 
and the upper byte of the "stor" register is set to zero. 

ator :- ZLY ( bbua > 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/ZLY 

Meaning: The upper byte of the "bbus" register is stored in the upper byte of the "stor" 
register, and the lower byte of the "stor" register is set to zero. 

ator :■ 5RG (bbua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/SRG 

Meaning: The content of the "bbus" register is operated on by the SRG function, and the result 
is stored in the "stor" register. 
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ator :• RL4 <bbus> 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/RL4 

Meaning: The content of the "bbus" register is rotated left four bits and the result is stored in 
the "stor" register. 

ator :• ASG ( bbua ) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ALUS/ASG 

Meaning: The content of the "bbus" register is operated on by the ASG function, and the result 
is stored in the "stor" register. 

ator :» UMPY (btaua.abua) 
ator :- UMPY tbbua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/UMPY 

Meaning: Perform the unsigned multiply step on the registers specified as "bbus" and "abus" 
and store the result into the "stor" register. 

ator :- TMPY (bbua.abua) 
ator :- TMPYtbbua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/TMPY 

Meaning: Perform the two's-complement multiply step on the registers specified as "bbus" and 
"abus" and store the result into the "stor" register. 



ator :- SM2C ( bbua ) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/SM2C 

Meaning: Perform the signed-magnitude to two's-complement conversion on the "bbus" 
register and store the result into the "stor" register. 

ator : ■ TMLC (bbua ,abua> 
ator :• TMLC (btaua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/TMLC 

Meaning: Perform the last cycle of the two's complement multiply on the "bbus" register and 
store the result into the "stor" register. 

ator : • DNRM (bbua , abua) 
ator :- DNRM ( bbua ) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/DNR 

Meaning: Perform the double-normalize step on the contents of the "bbus" register, and store 
the result into the "stor" register. 

ator :- SNRM ( bbua ) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/SNR 

Meaning: Perform the single-normalize step on the "bbus" register contents and store the 
result into the "stor" register. 
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ator :> DIV Cbbus ,abus) 
ator :- DIV (bbus) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/DIV 

Meaning: Perform the two's-complement divide step on the contents of the "bbus" and "abus" 
registers and store the result into the "stor" register. 

ator :- DIV1 (bbua.abua) 
ator :• DIV1 (bbua) 

Fields: ALU/SPEC STOR/stor BBUS/bbus ABUS/abus ALUS/DIVl 

Meaning: Perform the two's-complement first divide step on the contents of the "bbus" and 
"abus" registers and store the result into the "stor" register. 

7-30. ARITHMETIC PHRASES WITH IMMEDIATE DATA. Microinstructions with the 
arithmetic phrase Immediate Data will have microorder IMM (Immediate) in the first field (op code 
field) and the data in the DAT (Datal field. These microinstructions are word type 6. The phrases for 
word type 6 are listed below with their resulting fields and meaning. 



ARITHMETIC PHRASES WITH IMMEDIATE DATA 

ator : ■ data 

Fields: ALU/adac STOR/stor DAT/data 0P6/IMM 

Meaning: The value of "data" is stored into the "stor" register. 

stor :• NOT data 

Fields: ALU/cmac STOR/stor DAT/data 0P6/IMM 

Meaning: The one's complement of "data" is stored into the "stor" register. 

ator :- NOT data AND bbua 
ator : • bbua AND NOT data 

Fields: ALU/cand STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The one's complement of "data" is logically ANDed with the contents of the "bbus" 
register and the result is stored into the "stor" register. 

ator :- data - bbua 

Fields: ALU/sbbc STOR'stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The content of the "bbus" register is subtracted from "data" and the result is stored 
in the "stor" register. 

ator :■ bbua - data 

Fields: ALU/sbac STOR'stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The value of "data" is subtracted from the content of the "bbus" register and the 
result is stored in the "stor" register. 
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stor : ■ bbus + data 

Fields: ALU/addc STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The value of "data is added to the content of the "bbus" register and the result is 
stored in the "stor" register. 

stor :• data XNOR bbus 
stor :- bbus XNOR data 

Fields: ALU/xnor STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The content of the "bbus" register and "data" are exclusive-NORed and the result is 
stored in the "stor" register. 

stor ;• data XDR bbus 
ator :■ bbus XOR data 

Fields: ALU/xor STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The content of the "bbus" register and "data" are exclusive-ORed and the result is 
stored in the "stor" register. 

stor : - data AND bbus 
stor : ■ bbus AND data 

Fields: ALU/and STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The content of the "bbus" register and "data" are logically ANDed and the result is 
stored in the "stor" register. 

stor :• data HAND bbus 
stor :> bbus HAND data 

Fields: ALU/nand STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The content of the "bbus" register and "data" are logically NANDed and the result is 
stored in the "stor" register. 

stor :■ data lOR bbus 
stor :■ bbus lOR data 

Fields: ALU/ior STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The contents of the "bbus" register and "data" are logically inclusive-ORed and the 
result is stored in the "stor" register. 

stor :- data INQR bbus 
stor :• bbus INDR data 

Fields: ALU/inor STOR/stor BBUS/bbus DAT/data 0P6/IMM 

Meaning: The contents of the "bbus" register and "data" are logically inclusive-NORed and 
the result is stored in the "stor" register. 
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7-31. CONDITIONAL PHRASES 



Conditional phrases provide the means to specify conditional branching, conditional return, and 
conditional execution of the SPO field. These phrases all start with "IF", and allow the specification of 
the 0P2, 0P3, and CNDX (condition) fields. 



7-32. CONDITIONAL BRANCHING PHRASES. The conditional branching phrases given 
below result in a jump to a microaddress that is within the same 64- word block as the current address 
plus one. The jump is either to the address or subroutine that is specified by "adr" in the ADRS field. 

The following phrases are recognized for conditional branching: 

CONDITIONAL BRANCHING PHRASES 

IF cndx GOTO adr 

Fields: 0P3/JMPT CNDX/cndx ADRS/adr 

Meaning: If condition is true, then jump to the address specified in ADRS. 

IF NOT cndx GOTO adr 

Fields: 0P3/JMPF CNDX/cndx ADRS/adr 

Meaning: If condition is not true, then jump to the address specified in ADRS. 

IF cndx CALL adr 

Fields: 0P3/JSBT CNDX/cndx ADRS/adr 

Meaning: If condition is true, then jump to the subroutine at the address specified in ADRS. 

IF NOT cndx CALL adr 

Fields: 0P3/JSBF CNDX/cndx ADRS/adr 

Meaning: If condition is not true, then jump to the subroutine at the address specified in 
ADRS. 



7-33. CONDITIONAL RETURN PHRASES. The return from a conditional return phrases is 
to the microaddress on the micromachine stack, and the stack pointer is decremented. Conditional 
return phrases are the following: 

CONDITIONAL RETURN PHRASES 

IF cndx THEN RTN 

Fields: 0P2/RTNT CNDX/cndx 

Meaning: Return if condition is true. 

IF NOT cndx THEN RTN 

Fields: 0P2/RTNF CNDX/cndx 

Meaning: Return if condition is false. 
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7-34. CONDITIONAL SPO PHRASES. There are some hardware limitations to conditional 
SPO phrases as follows: Conditional shifts and rotates are not allowed (this includes the ALUS field), 
and the LDQ special can not be performed conditionally. (MPARA does not check for this limitation.) 
The conditional SPO phrases are the following: 

CONDITIONAL SPO PHRASES 

IF cndx THEN spO 

Fields: OP2/SP0T CNDX/cndx SPO/spO 

Meaning: Execute microorder in SPO field if condition is true. 

IF NOT cndx THEM spO 

Fields: OP2/SP0F CNDX/cndx SPO/spO 

Meaning: Execute microorder in SPO field if condition is false. 

7-35. SPECIAL PHRASES 

The microorders in the SPO, SPl, and SP2 can be specified simply as the microorder mnenonic. Note 
that some of the microorders are associated with ALU operations, and the ALU phrases specify some 
specials, such as FCIN. Some examples are the following: 

SPECIAL PHRASES 

Meaning 

spO microorder placed in SPO field 
spl microorder placed in SPl field 
sp2 microorder placed in SP2 field 



7-36. FIELD FORCING PHRASES 

A field forced phrase is one in which the microorder is given along with the field in which it is to be 
placed. Several eisamples of field forced phrase formats are as follows: 

0P1/op1 where an op field 1 microorder (e.g., JTAB) is specified for field DPI; 

CNDX/cndx where a condition field microorder (e.g., CF) is specified for field CNDX; 

DAT/da t where data is specified for immediate data for field DAT. 

If a microorder is written in "forced field" form which does not belong in the specified field, an error 
message will be generated during the microassembling process. 



Special Phrase 


Resulting Field 


spO 


SPO/spO 


spl 


SPl/spl 


sp2 


SP2/sp2 
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SECTION 



8 



This section provides instructions for actually microassembling your microprogram after you have 
prepared the microprogram using information from Part II of this manual. The MPARA paraphraser 
microassembler program must be installed in the RTE operating system of your computer. Refer to 
Section 3 of this manual for guidelines on preparing for microprogramming. 

This section provides the information on executing the paraphraser microassembler and information 
on its output such as the following: 

• Binary object code (microcode) file 

• Address Label listing 

• Floating field listing of the microorders 

• Error messages output to list device 

The microcode file can be downloaded into the WCS using the WLOAD utility (and the ID.41 WCS 
driver). WLOAD also generates binary code formatted for burning PROMs. 



8-1. LOADING MPARA 

The paraphraser microassembler program MPARA requires a 32k word memory partition, and it has 
five segments. MPARA is loaded as follows using the relocating linking loader program LINK: 

1. Call LINK from the file manager 

FMGR: RU,LINK 

2. Load MPARA using LINK command files as follows: 

LI,$PLIB 

SZ,32 (32k partition SiZe) 
RE,%MPARA (RElocate file) 
EN (ENd and Exit) 



8-2. USING THE PARAPHRASER MICROASSEMBLER 

As described in Section 7, the paraphraser microassembler accepts "free format" microprogram 
sentences and translates them to produce the binary object code of the microprogram. The program 
control statement at the beginning of the program determines if a label listing and a floating field 
listing will be output on the list device. Error messages, if any, cannot be suppressed and will always 
be output to the list device. 
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Refer to Sections 4 and 7 for descriptions of the microinstructions and how to write them for the 
paraphraser. The following paragraphs provide a procedure for microassembling a microprogram. 



8-3. EXECUTION COMMAND 

The paraphraser can be scheduled to run on the HP 1000, A700 computer system with this command: 
:RU,MPARA, source input,list output, binary output 

source input Name of FMGR file containing the Paraphraser source code; this entry must conform 
to the format required by the FMGR namr parameter. 

list output Choose one of the following: 

- (minus sign) 
FMGR file name 
logical unit number 

If the minus sign is specified, and the source file name begins with an ampersand (&), 
the ampersand is replaced with a apostrophe and the remaining source file name 
characters are used for the list file name. The list file is forced to reside on the same 
cartridge (character reference code) as the source file. For example: 



&LIST 
'LIST 



source file 
list file name 



If an FMGR file name is specified, it must conform to the format required by the FMGR 
namr parameter. The list file is created if it does not exist. If the file does exist, the first 
character in the file name must be an apostrophe; otherwise an error results. 

If a logical unit number is specified, the listed output is directed to that logical device. 



binary output Choose one of the following: 

- (minus sign) 
FMGR file name 
logical unit number 



If the minus sign is specified, and the source file name begins with an ampersand (&), 
the ampersand is replaced with a percent symbol and the remaining source file name 
characters are used for the binary file name. The binary file is forced to reside on the 
same cartridge (character reference code) as the source file. For example: 



&MCODE 
%MCODE 



source file 
binary file name 



If an FMGR file name is specified, it must conform to the format required by the FMGR 
namr parameter. The binary file is created if it does not exist. If the file does exist it is 
necessary that 

a. the first character of the file's name be a percent sign (%). 

b. the existing file be the type specified in the namr parameter (if the file type is not 
declared in namr, the file's type must be Type 5, relocatable binary). 

If the above conditions are not met, a paraphraser error will result. 
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If a logical unit number is specified, the binary output is directed to that logical device. 

If this parameter is omitted, no binary object code is generated. Examples; 

:RU,MPARA,&SOURCE,'LIST,%MCODE 

Schedules MPARA to microassemble source file &SOURCE. Listed output is directed 
to list file 'LIST, and binary object code is directed to binary file %MCODE. 

When MPARA is finished translating your microprogram, it will print the following on your terminal: 
/MPARA: total errors: n 

where n is the number of mistakes you have made or if n=0 there are no mistakes. 



8-4. THE PARAPHRASER OUTPUT 

The following paragraphs describe the various forms of output available from the paraphraser 
microassembler; namely, the microassembled binary object code, the source listing, the optional label 
listing, the optional floating-field listing, and error messages. 



8-5. BINARY OBJECT CODE 

The standard object code output of the paraphraser microsassembler to a disc file or some other output 
device must consist of one or more microinstruction records including a NAM (name) record. 

The standard object format is acceptable by all programs that accept standard relocatable format (RTE 
type 5 files). Therefore the object code can be stored from an input device into a disc file as a binary 
relocatable by the FMGR STore command. If the paraphraser FMGR run string specifies an output file 
or LU, the paraphraser automatically stores the object code into the specified file or LU. 



8-6. PARAPHRASER OUTPUT LISTINGS 

The paraphraser prints the microprogram source program with line numbers in hexadecimal on the 
specified list device or disc file. The optional label list and floating field list are output to the same 
device or file if they are specified in the microprogram command statement. An error listing is also 
provided if there are any mistakes in the program. 

For examples of source listings, refesr to the sample program in Figure 7-1 or the sample programs in 
Section 12. The label listing provides each label in alphabetical order with the line number shown in 
hexadecimal. An example label listing is provided in Figure 8-1. 
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MPARA label listing 


ALLOM DI 


0x0302 


CHANG DID 


0x0430 


DSBLE TD 


0x0731 


ENBLE TD 


0x0742 


INCLUSIV 


0x0345 


INDREAD 


0x0335 


INDRSOLV 


0x0420 


TDI DISA 


0x0515 


TURN OFF 


0x0243 


UNDO LIS 


0xO2D0 


ZFER LP 


0x0220 



Figure 8-1. Example of a Paraphraser Label Listing 



The floating field listing shows a microinstruction per line with the line number in hexadecimal and 
the 32-bit microcode given in hexadecimal. The op (operation) field is given first along with the word 
type which is determined by the microorder in the op field. Each field with its microorder is given 
together; for example, "op6/imm" for word type 6 and the microorder Immediate data in the op field. 
An example of a floating field listing is given in Figure 8-2. 



MPARA floating field listing 


0700 


DA2812B4 


opi/nop apO/rdb ap2/nop abua/acc 
alu/adbc bbus/t ator/nop 


0701 


E235932E 


op2/rtTif cndx/b15 apO/fcin abua/acc 
alu/adbc bbua/ma ator/a6 


0702 


DA281 2B4 


opi/nop spO/rdb ap2/nop abua/acc 
alu/adbc bbua/t ator/nop 


0703 


E23S932E 


op2/rtnf cndx/b15 apO/fcin abua/acc 
alu/adbc bbua/ma ator/a6 


0704 


DA2812B4 


opi/nop apO/rdb ap2/nop abua/acc 
alu/adbc bbua/t ator/nop 


0705 


E235932E 


op2/rtnf cndx/b1S apO/fcin abua/acc 
alu/adbc bbua/ma ator/a6 


070e 


5407E354 


op5/jabl adrl/TDI_DISA alu/zero bbua/memr 
ator/nop 


0707 


40072094 


op5/jmpl adrl/INDREAD alu/zero bbua/acc 
ator/nop 



Figure 8-2. Example of a Paraphraser Floating Field Listing 
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8-7. ERROR MESSAGES 



Wherever your source file contains errors, MPARA will give a descriptive error message. There are 
two types of errors that MPARA detects: 

1. Label errors are errors that MPARA detects while passing through the source file to determine the 
values of address labels that you want to define. 

2. Translation errors are errors that MPARA detects while translating your sentences into 
microinstructions. 



8-8. LABEL ERRORS 

The address label pass errors are located in the listing file right after the control statement. The 
address label errors are described in Figure 8-3. 



BAD CONTROL STATEMENT 

Message: *** label pass error: bad control statement 

Reason: First line in the source file did not start with "MPARA". 

BAD OPTION IN CONTROL STATEMENT 

Message: *** label pass error: bad option "Q" 

Reason: User specified an Invalid option in the control statement. 

DUPLICATE ADDRESS LABEL 

Message: *** label pass error: redefined label name: "DUPLICAT" 

Reason: The user had defined the address label "DUPLICATE" twice. Labels may only be defined once. 

BAD DIRECTIVE 

Message: *** label pass error: missing $ in directive 

Reason: MPARA expects all directives to begin and end with a dollar sign, and the label pass checks your 

directives. However, a more descriptive error is inserted in the listing file after the bad directive as 
a result of the translation. 

BAD COMMENT 

Message: *** label pass error: missing ending } 

Reason: A bracketed comment was begun, but not ended before MPARA reached end of the file. 



Figure 8-3. Address Label Errors 
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8-9. TRANSLATION ERRORS 



Whenever MPARA detects a bad sentence during its translation of the input expressions, an error 
message is inserted right after the offending sentence and the rest of the sentence is skipped. MPARA 
translates your sentences in a left-to-right manner, so the left-most phrases, directives, etc will be 
checked first. Figure 8-4 describes the translation errors. 



BAD PHRASES 



MISSPELLED WORD 

Bad Phrase: iff y15 goto there; 

Message: *** error: unrecognized sentence due to "iff" 

Reason: The "iff" in the source file has no meaning to MPARA. The programmer probably incorrectly 

typed "if." 

UNRECOGNIZED PHRASE 

Bad Phrase: A: = NON_EXISTENT_REGISTER; 

Message: **' error: unrecognizable arithmetic phrase due to "NON EXIS" 

Reason: MPARA recognized the phrase as an arithmetic phrase, but NON_EXISTENT_REGISTER is 

something that MPARA does not understand. If the user had defined that name in the BBUS 
field using the "define" directive, then the sentence would have been recognized. In this case, 
MPARA found something it did not understand while processing an arithmetic phrase. Similar 
messages may be produced for errors in other types of phrases. 

MISSPELLED WORD 

Bad Phrase: if y15 gotto there; 

Message: *** error: unrecognizable conditional phrase due to "gotto" 

Reason: The "gotto" is "goto" miss typed. 

UNDEFINED ADDRESS LABEL 

Bad Phrase: goto nowhere; 

Message: ** " error: unrecognizable branch phrase due to "NOWHERE" 

Reason: The address label "NOWHERE" was not defined in the source file. Address labels must be 

defined in the address field using the usual "NOWHERE:" method or using the define directive. 

TWO MICROORDERS IN ONE FIELD 

Bad Phrase: cmid, cmid; 

Message: *** error: conflict in sp2 field due to "cmid" 

Reason: The program has tried to fill the sp2 field more than once. Conflict may occur in any field if more 

than one microorder is specified for that field. Note that in cases where microorders are 
duplicated in separate fields, MPARA will choose the fields so that a conflict does not occur. An 
example is the increment p-register microorder (IP), which exists in the SPO, SP1 and SP2 
fields. The sentence "cmid,ip;" will be interpreted as SP2/CMID and SPO/IP. 



Figure 8-4. Translation Errors 
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CONFLICTING WORD TYPES 


Bad Phrase: 


if y15 goto 100, sp2/ip; 


Message: 


**• error: word type conflict 


Reason: 


The sentence specifies fields from different word types. Valid MPARA sentences must select 




microorders in fields within one word type. Note that if "if y1 5 goto 1 00, ip" had been specified. 




MPARA would have selected SP1/IP, and word type conflict would not have occurred. 




NON-VALID CHARACTER 


Bad Phrase: 


if y15 goto there%; 


Message: 


*** error: bad character or number due to "there%" 


Reason: 


The percent character is not a valid MPARA character. 




NON-VALID NUMBER 


Bad Phrase: 


sO:=100a; 


Message: 


*** error: bad character or number due to "100a"; 


Reason: 


The "1 00a" is not a valid number. This type of error Is inserted in your list file whenever MPARA 




is scanning your sentences and finds bad characters or bad numbers. The following are some 




examples of bad numbers in sentences: 




s0:=0x10G; *bad hexadecimal number 




sO:=0100B; *bad octal number 




sO: = 100Z; *bad decimal number 


BAD DIRECTIVES 




UNRECOGNIZED DIRECTIVE 


Directive: 


$orgin 100$ 


Message: 


*** error: bad directive 


Reason: 


The programmer probably meant to use the origin directive. 




BAD NUMBER 


Directive: 


$origin 0AA$ 


Message: 


*** error: bad number in directive 


Reason: 


The number inside of the directive is not represented correctly. 




INCORRECTLY TYPED NAME FIELD 


Directive: 


$deflne adddr/test 1 00$ 


Message: 


*** error: field name is not defined 


Reason: 


The user is trying to define microorder "test" In the "adrl" field but incorrectly typed the field 




name in the directive. 




MISSING $ SIGN 


Directive: 


$origin 100 ; 


Message: 


*** error: missing ending $ 


Reason: 


All directives begin and end with a dollar sign, and this directive is missing the ending dollar 




sign. 



Figure 8-4. Translation Errors (Continued) 
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MISCELLANEOUS 




SENTENCE TOO LONG 


Message: 


'** error: exceeded maximum sentence length 


Reason: 


(No example given here.) MPARA's internal sentence holding buffer been exceeded. Note that 
all valid MPARA sentences will not exceed this buffer. 




BRACKETED COMMENT NOT COMPLETE 


Message: 


*** error: missing ending } 


Reason: 


(No example given here) A bracket comment was begun, but a closing bracket was not 
encountered before the end of the file. 



Figure 8-4. Translation Errors (Continued) 
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WRITABLE CONTROL STORE (WCS) 

SUPPORT SOFTWARE 



SECTION 



The previous section (Section 8) describes a method of preparing a microprogram and storing this 
source program in a system file. The source program, prepared "offline" or on some other system, could 
have been stored in a system file by loading it through a system input device. The source program is 
then translated by the paraphraser (MPARA) microassembler program and filed as binary object code 
(or microcode) in another system file. This later file is the ready-to-use microinstructions of your 
program. In order to make use of this fnicrocode it must be moved into the Control Store 
(micromachine memory) of the computer. 

The computer's extended Control Store for user programs is provided by Writable Control Store (WCS) 
and PROM Control Store (PCS) cards. Normally, the microprogram is initially loaded into a WCS card 
so that test runs of the program can demonstrate that it has no "bugs" before burning PROMs to install 
on a PCS card. 

The WCS cards are loaded by using a program called "WLOAD." WLOAD is a utility program which 
loads WCS and generates PROM "bum tape" code under the RTE operating system. An understanding 
of WCS memory mapping is essential for loading microprograms into it. This subject is summarized 
below. For additional information on the WCS ceu-d, which can be useful to the user for a better 
understanding of how to load it, refer to the HP 1000 A700 User Control Store Installation and 
Reference Manual, part no. 02137-90003. The WLOAD PROM "burn tape" function is covered in 
Section 10. 



9-1. WCS MAPPING 

The micromachine of the HP A700 computer has a microcode address space of 16k words of which the 
user may use 8k words. The 16k words are conceptually divided into 16 logical Ik modules numbered 
from through 15. Each WCS card contains four banks of RAMs (Random Access Memory) for a total 
of 4k-words per card. The banks are numbered 0, 1, 2, and 3. 

A mapping RAM on each card maps the logical modules to the physical banks. The map RAM has 16 
locations each of which corresponds to a logical module. On each card, the logical module may be 
assigned a physical block that will be enabled when addressed through mapping, or it may be 
unmapped. If a logical module is mapped on more than one card at a time, the card which is higher 
priority in the control store chain will be enabled and will disable the other cards (including the 
processor control store). 
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9-2. USING WLOAD 

To load a WCS card using WLOAD, the user assigns an LU to the card to identify its I/O location for 
program interaction. Next, the appropriate logical to physical mapping is set up, and then a file or files 
are usually specified from which to download data. 

An example of running WLOAD to load a WCS card follows: 
RU,WLOAD 

NOTE 

The WLOAD prompt "xx>" will appear on your terminal where 
XX is the WCS LU which is currently specified. In this example, 
the WCS LU is specified by the user as 63 is the first step under 
WLOAD. 

Continue with this procedure while running under WLOAD execution: 

PROCEDURE COMMENTS 

0>LU,63 WLOAD starts up with LU=0; User enters LU of WCS. 

63>IN Initialize. Turn off WCS and unmap all logical modules. 

63>EQ,4,0 User equates the logical module 4 address (1000-13FF hex) to physical 

bank 0. 

63>LB,%EXMPL User loads microcode from the binary format file %EXMPL (example). 

63>ON User turns WCS on. 

63>EX Exit program. 



9-3. WLOAD COMMANDS 

WLOAD commands are two characters. Some of the commands require parameters which may be 
included on the command line separated by commas. If required commands are not included on the 
command line, WLOAD will prompt for the parameters. 

Commands which read from or write to either the data RAMs or the map RAMs require that WCS be 
turned off. If WCS was on when such a command is executed, WCS will be automatically turned off, 
and it will be turned back on after execution of the command, unless a WCS I/O error occurs. 

Before turning WCS off or executing the command, the input parameters are checked for validity. The 
following checks are performed as applicable: 

1. If the logical module is between and 15. 

2. If the physical bank is between and 3. 

3. If the WCS address or data is in hex format and the address <16k (4000). 

4. If the input file (or LU) can be opened. 

5. If the output file (or LU) can be opened or created. 
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9-4. ON COMMAND 



This command turns WCS on. A check is done to make sure WCS actually turned on. The command 
format is: 

ON 



9-5. OF COMMAND 

This command turns WCS off. A check is done to make sure WCS actually turned off. The command 
format is: 

OF 



9-6. EQUATE COMMAND 

This command stands for "Equate (map) a logical module to a physical bank." The input parameters 
are checked for validity. The command format is: 

E Q ,logical,phys ical 
where: 

logical is a logical module number between and 15; 
physical is a physical bank number between and 3. 

All logical modules containing addresses referenced in the microcode of the input file must be mapped 
before loading. 

9-7. REMOVE COMMAND 

This command removes (unmaps) a logical module. The input parameter is checked for validity. The 
command format is: 

RE,logical 

where: 

logical is the logical module between and 15 

9-8. STATUS COMMAND 

This command displays current status (on/off) of WCS without altering it. The status is obtained from 
the WCS card. The format of the command is: 

ST 



9-3 



WCS Support Softv^are 

9-9. LOAD ASCII COMMAND 

This command loads WCS with ASCII-format data from a file or LU. The programmer must have 
previously mapped (using the EQ command) all logical modules containing addresses referenced in the 
microcode being loaded from the input file. The loading of WCS is actually an overlay of current data, 
so that any address locations not specified in the input file are not altered. This command is useful for 
overlaying "patches" onto WCS in order to change a few lines of microcode. The format of the command 
is: 

LA,input file or lu 

where: 

input file is the file name where the mict-ocode resides; 

lu is the logical unit number of an input device if the microcode is to be input through that device. 

The input file must contain one microinstruction per line consisting of the hexadecimal address 
followed by the hexidecimal data. This is similar to the floating field listing generated by the 
paraphraser. 

A validity check is done on the input file or LU. In reading data from the input file, the other errors 
which may occur are: 

a. Input file data is incomplete or incorrect format. 

b. Address too high. (Address in input file exceeds the 16k logical address space). 

c. Logical module not mapped. (An address was read for which the corresponding logical module was 
not mapped on the WCS card). 

If any of these errors occur, WLOAD will stop execution of the command and the data in WCS will not 
be altered. 



9-10. DISPLAY MAPPING COMMAND 

This command displays the contents of the mapping RAM. The format of this command is: 
DM 

9-11. LU COMMAND 

This command assigns the LU for interaction with WLOAD. A check is done to make sure that the LU 
specified is the correct interface type (41) and that the LU can be locked. The LU will remain locked 
until a new LU is specified or the program is exited. (Note that lu is always a valid lu to specify). The 
format of this command is: 

LU,/m 



9-4 



WCS Support Software 



9-12. READ COMMAND 



This command reads WCS data from the address range specified and outputs it to the file or logical 
imit (lu) specified. Default is the user's terminal. The start and end addresses are specified in 
hexadecimal and an error is reported if they are greater than 16k or if the end address is less then the 
start address. The output file will be created if it does not already exist. If an address in the range 
given is not mapped on the board, an error will be reported and WLOAD will stop executing the 
command. The format of this command is: 

RD, start address, [end address, output file or lu] 

where: 

start address is a hexadecimal number of the lowest address in the range; 

end address is a hexadecimal number of the highest address in the range (defaults to start 
address). 



9-13. INITIALIZE COMMAND 

This command initializes WCS. This turns WCS off and unmaps all logical modules. The format of this 
command is: 

IN 



9-14. BACKGROUND COMMAND 

This command loads one microword of background data into every location in the specified logical 
module. A validity check is done on the input parameters, and an error is reported if the logical module 
specified is not mapped. The format of this command is: 

BGJ,ogical module,hex data 

where: 

logical module is a module number between and 15 (see EQ command); 

hex data is a 32-bit hexadecimal number for the background data. 

9-15. WRITE DATA COMMAND 

This command loads one location of WCS with the data specified. The input parameters are checked for 
validity. If the address specified is not logically mapped on the card, an error is reported. The format of 
this command is: 

WD, hex address, hex data 

where: 

hex address is a hexadecimal number from to 4000 (16k) 

hex data is the data specified in hexadecimal 
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9-16. LOAD BINARY COMMAND 

This command (Load Binary) loads WCS with binary format data from a file or lu. This is the standard 
object code output of the paraphraser. The programmer must have previously mapped all logical 
modules which contain addresses referenced in the input file. The loading of WCS is actually an 
overlay of current data, so that any address locations not specified in the input file are not altered. The 
format of this command is: 

LB, input file or lu 

where: 

input file is the file name containing your microcode or lu is the input device (e.g., cartridge tape) 
containing the microcode. 

A validity check is done on the input file or LU. In reading data from the input file, the other errors 
which may occur are: 

a. Input file data is incomplete or incorrect format. 

b. Address too high. (Address in input file exceeds the 16k logical address space). 

c. Logical module not mapped. (An address was read for which the corresponding logical module was 
not mapped on th WCS card). 

If any of these errors occur, WLOAD will stop execution of the command and will not alter WCS data. 



9-17. TEST COMMAND 

Performs a destructive test of all four physical banks of the WCS RAMs. This test writes patterns of 
alternating ones and zeros into the RAMs and then reads the data back out of the RAMs. The test is 
run first with a pattern starting with "0", then run again with a pattern starting with "1." All errors 
are listed in the output file. The total number of errors found in each physical bank is reported to the 
user's terminal. The format of this command is: 

TEfiutput file 

where: 

output file is the namr of the output file used for listing any errors found during the test. If the 
error listing is not desired, then type "carriage return" in response to the prompt for output. 



9-18. EXIT COMMAND 

This command exits the WLOAD program. The format of this command is: 

EX 
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9-19. TRANSFER FILE 

This command transfers control to a file that contains the commands required for loading WCS with 
your microcode. Using a transfer file can save you time when microcode must be loaded more than 
once. 

Commands will be read from the file and echoed to the user's terminal. If any error occurs while 
WLOAD is executing from a transfer file, control will be transferred back to the user's terminal and 
the transfer file will be closed. The transfer file command can not be used in another transfer file. The 
form of this command is: 

:naTnr 

where: 

namr is the file name or lu 

Transfer of control to a file can also be done by specifying the file as the first parameter in the run 
string: 

WJ, WLOAD, namr 

9-20. RETURN FROM TRANSFER FILE 

The command to transfers control from a transfer file back to the user's terminal is a double colon. The 
format of this command is: 



The EX command can be used to simultaneously exit the WLOAD program and the transfer file. Any 
lines following an EX or :: in the transfer file will be ignored. 



9-21. BT COMMAND 

This is the Burn Tape command for the generation of PROM "burn tape" microcode. Use of this 
command is covered in Section 10. 



9-22. HELP FILE 

To display a list on your terminal of the WLOAD commands, call the HELP file. The format of the 
command to call this file is: 

HE or ?? 



9-23. COMMENT 

Any line that begins with an asterisk (* ) is treated as a comment line and will be ignored by WLOAD: 
*comment (anything that starts with *) 
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WLOAD PROM BURN TAPE FUNCTION 



The WLOAD PROM bum tape function translates your microprogram into binary code that is 
formatted for ROM firmware. The PROM burn binary code is generally stored in a computer file and 
then dumped onto HP cartridge tape (bum tape) for reading in an HP 264XX terminal which controls 
the PROM burning equipment. The fabricated ROMs are for installation on the HP 12155A PROM 
Control Store card or the HP 12156A Floating Point Processor. (Note: The PROM "bum tape" code can 
also be used for the A700 base set.) 

Typical PROM burning equipment used for buming A700 processor PROMs are the DATA I/O System 
19, the PRO-LOG PROM Burner or equivalent. 

Before making PROM burn tapes, the microprogram should be completely tested and debugged using 
a WCS card for microprogram storage. The source should be corrected and microassembled using the 
paraphraser to provide MPARA output code from which the final PROM burn object code files are 
generated. 

10-1. PCS PROM SPECIFICATIONS 

The format of the microinstructions stored in the ROMs used on the PCS card is 32-bits divided by 
8-bits. This format requires four ROMs per set. The PROMs can be the Signetics 825181, Harris HM 
7681-5 or equivalent. The required PROM characteristics are as follows: 

PROM Characteristics 

Size: Ik x 8 bits 

Address Access Time: 70 nsec max. 

Chip Enable Access Time: 40 nsec max 

Power Supply Current: 175 mA max 



10-2. USING WLOAD FOR BURN TAPES 

The WLOAD commands used to interact with WCS are covered in Section 9. 

Specifying the LU of the WCS as is a special case which the user may employ to generate PROM 
"bum tape" code, whether or not there is a WCS card in the system. When LU=0, any commands 
which involve reading or loading WCS (data or map RAMS) will be executed within program memory. 
In other words, LU will look like a WCS card including maps and 4k of microcode space. The user can 
employ any WLOAD command to load or read the "WCS" of LU 0. (The ON Command will have no 
effect.) 
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An example of the procedure for running WLOAD to use program memory for bum tape microcode is 
the following: 

PROCEDURE COMMENTS 

0> User leaves LU=0 and loads his microcode into program memory. 

0>EQ,4,0 User equates the logical module 4 address (1000-1400 hex) to physical 

bank 0. 

0>BG,4,00000000 The user puts a background of all zeros into logical module 4. This is 

the unbumed state of the user's PROMs. 

0>LB,%EX1 User loads microcode from two different MARA object code files. 

0> LB ,% EX2 These microprograms reside at different places in the logical module 4 . 

0>BT,P,1,4,FBURN Generate the bum tape file FBURN for a Ik x 8 PCS PROM starting at 

logical module 4. 



10-3. BURN TAPE COMMAND 

PROM burn tape code is generated by the WLOAD program when the Bum Tape Command is 
executed. This command can be used in two ways as follows: 

a. When the LU specified in WLOAD is zero (0) the PROM burn code tape is generated from the 
microcode stored in program memory. 

b. When the LU specified in WLOAD is an existing WCS card, the PROM burn code tape will be 
generated from the WCS card contents. 

In either of the above cases the same sequence of commands are used before executing the BT 
command including setting up the map, writing background data, and loading microprogram files. 

The PROM burn tape function of WLOAD generates code for the entire PROM so that all logical 
modules which fall into the address space of the PROM must be mapped. The user can optionally load 
either all zeros (Os) or all ones (Is) into unused areas of the PROM with Background (BG) command. 

The format of the Bum Tape (BT) command is: 

BT,prom type,prom size, starting logical module, output file 

where: 

prom type is either B = Base Set to reside on the lower processor card or, 
P =PCSorFPP. 

prom size is either 1 = Ik words 
2 = 2k words 
4 = 4k words 

starting logical module = the logical module number between and 15 at which the PROM is to 

start 

output file = the file that the bum code will be stored into. If the input file does not exist it will 
be created. 
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10-4. ERROR REPORTING 

The WLOAD program will report an error for any of the following conditions: 

a. Output file cannot be opened or created. 

b. Invalid input parameter for PROM type or size. 

c. Starting logical module not valid or logical module plus PROM size exceeds 16k address space. 

d. A logical module within the PROM address space is not mapped. 



10-5. OUTPUT FORMAT 

The translation format of the PROM bum code for five bytes of data output is shown in Figure 10-1. 
This is an ASCII-Hex(Space) format. The figure shows the data characters and the control characters 
annotated. 

An example of a printout of the binary code output from a WLOAD PROM burn tape function pass is 
shown in Figure 10-2. 



(1) (2) 

♦ 

Sc$AOOOO, 




(3) 


<5) 


11 22 


33 


44 55 


h 


$soorF 




1 


t 




(6) 




<4) 




FORMAT IDENTIFICATION 


1 . Start Code ( % ) 

2. Address Field 


4. 
5. 


Execute Code (a space) 
End Code ( ^ ) 


3. Data Byte 


6. 


Sum-Check Field 



Figure 10-1. Translation Format of PROM Code 
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A700 CONTROL STORE PROM 


1 K X 8 


ADDRESS SPACE: 1000 - 13FF 


PCS/FPP Prom Bits 7-0 


$ AG 000, 

C4 96 94 8F 8E 8D 80 81 84 94 9B 08 29 8A 84 94 

21 94 94 84 84 84 84 85 26 87 94 94 94 94 94 94 


54 94 94 94 84 94 2B 8C 83 14 94 OB 94 94 94 84 


84 83 8C B4 94 D4 94 F4 94 94 94 FF FF FF FF FF 


9B 08 29 8A 84 94 21 94 94 FF FF FF FF FF FF FF 


$S271C,xxxxxxxxxx 


A700 CONTROL STORE PROM 


1 K X 8 


AEiDRESS SPACE: 1000 - 13FF 


PCS/FPP Prom 1 Bits 15-8 


$AO000, 

32 3C AO 18 98 58 98 98 98 10 D8 10 10 12 20 20 


00 EO AO 3C 3C FC DO 10 10 12 20 20 60 EO 60 EO 
11 12 20 20 20 60 11 12 50 40 EO CD 60 EO AO 98 


FC DO 12 EC 20 2C 20 2C 20 20 20 FF FF FF FF FF 


D8 10 10 12 20 20 00 EO AO FF FF FF FF FF FF FF 


$SlD3D,xxxxxxxxxx 


A700 CONTROL STORE PROM 


1 K X 8 


ADDRESS SPACE: 1000 - 13FF 


PCS/FPP Prom 2 Bits 23-16 


$A0OOO, 

FC 00 02 01 00 00 FF 40 9A 04 FF 00 00 00 74 30 


00 2C 70 CI 40 C2 15 00 00 00 00 CO CO C3 00 C2 


04 10 30 74 40 00 10 00 00 90 2C 91 30 2C 70 01 


C2 15 00 80 81 80 81 00 81 00 01 FF FF FF FF FF 


FF 00 00 00 74 30 04 2C 70 FF FF FF FF FF FF FF 


$ S 1 7 B3 , xxxxxxxxxx 


A700 CONTROL STORE PROM 


1 K X 8 


ADDRESS SPACE: 1000 - 13FF 


PCS/FPP Prom 3 Bits 31-24 


$A0000, 

3F 01 50 00 00 00 OD 36 14 DA 3F DA DA DA DA DA 


D8 FA FA FF FF FE DA DA DA DA 58 5C 97 82 40 4F 


DA DA DA DA 9 A DA DA DA D2 DC FA DC DA FA FA 00 


FE DA D2 D9 AE DD AE DE 8E D2 D2 FF FF FF FF FF 


3F DA DA DA DA DA D8 FA FA FF FF FF FF FF FF FF 


$S33C4 .XXXXXXXXXX 
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The first four lines of output are comment lines. These lines are not used by the PROM programmer. 
The comment lines appear as a header on each to the four subsections of binary code but the header 
will not output on the bum tape since there is no Start of Transmission ( \ ) symbol until the 
beginning of the PROM code in front of the address field (0000 in the example printout). 

These lines provide the following information: 

a. The size and organization of the PROM as specified by function parameters. 

b. The address space in hexadecimal. 

c. Whether the code is for a PCS, FPP, or Base Set PROM, which one it is of the set of four PROMs, 
and which bits of the 32 bits are contained in it. 



10-6. PROM BURN OUTPUT 

Each of the subfiles, marked by a zero-length record, can be output to cartridge tape as multiple files 
by using the file manager STore command and the SAve record format. This saves the files with the 
embedded EOF (End Of File) marks. 

The store string is the following: 
ST,output file,tape lu, SA 

where 

output file is the name of the disc file containing the binary code, and 

tape lu is the logical unit number of the cartridge tape drive in the HP 264X terminal. 
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This section contains the information required for writing microroutines to obtain high-speed floating 
point operations using the HP 12156A Floating Point Processor. It also provides a simplified operating 
description of the card, and microcode examples utilizing floating point operation. 

For physical characteristics of the card and installation information, refer to HP 12156A Floating 
Point Processor Kit Installation and Reference Manual, part no. 12156-90001. 



1M. GENERAL DESCRIPTION 

The HP 12156A Floating Point Processor (FPP) contains hardware to accelerate the execution of 
floating-point dependent macroinstructions and provide floating-point microprogramming capability. 
These macroinstructions include the basic single- and double-precision floating-point instructions 
(add, subtract multiply, divide, etc.), the Scientific Instructon Set (SIS), and the Vector Instruction Set 
(VIS). The FPP card contains four accumulator locations, ROM for storage of 512 arithmetic constants, 
4k-words of microcode address space, and logic to interface to the processor. The FPP card plugs into 
the backplane between the upper processor and lower processor cards. 



11-2. BASIC CAPABILITIES 

The FPP interfaces to the computer processor over the frontplane. In operation, it accepts control 
words and operands, it performs operations on the operands, and returns the results to the processor. 
The operations performed by the card that can be microprogrammed are listed in Table 11-1. 

Figure 11-1 shows a block diagram of the internal data paths on the FPP. The arithmetic functions are 
carried out by the Floating-Point Arithmetic Logic Unit (FPALU) which has A and B input ports and a 
D output port. The D output is buffered onto the B-Bus. Control signals come off the Y-bus. 

Four accumulators are available as scratch memory. Each accumulator feeds either A or B input ports 
to the FPALU. Results from the D port can be transferred into any accumulator. Each accumulator can 
contain either a single or double precision number. 

The Arithmetic Constant ROM (ACR) contains the constants required in floating point arithmetic 
sequences. The first constant in a sequence is selected by an address pointer, and the pointer is 
automatically incremented as the sequence progresses. The selected constants are loaded into the 
A-operand port of the FPALU. 
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Table 11-1. Microprogrammable Floating-Point Operations 



OPERATION 


DESCRIPTION 




add 


single, double floating point 




subtract 


single, double floating point 




multiply 


single, double floating point, 

double integer, 32 bit logical (unsigned) 




divide 


single, double floating point 

double integer, 32 bit logical (unsigned) 




fix 


double floating point to single integer, 
double floating point to double integer 




float 


single integer to double floating point, 
double Integer to double floating point, 
double integer to single floating point, 
double floating point to single floating point 




convert 


double floating point to single floating point 




sfiift left 


to 63 bit left shifts 




shift right 


to 63 bit right shifts 





Y-BUS 



~\ 



CONTROL LOGIC 



v^ 



ARITHMETIC 
CONSTANT ROM (ACR) 



ACCUMULATORS 



255 



254 



^ 



FLOATING POINT 
ARITHMETIC 
LOGIC UNIT 




CONTROL 



8200-7 



Figure 11-1. Floating-Point Processor Data Paths 



B-BUS 
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11-3. GENERAL OPERATION 

In operation, a control word is first passed to the FPP. This is done by storing to a reserved location in 
the special register file (SRIN). The card then interprets the information stored at this location as its 
control information and responds accordingly. 

Once a control word is passed, the FPP accepts the necessary operands, and performs the requested 
function. After a required propagation delay, the result of the operation is either stored into one of the 
accumulators or returned to the processor over the B-Bus or both. An error condition is available to the 
processor which indicates whether an overflow or underflow has occurred during the operation. 



11-4. INTERFACE TO THE MICROMACHINE 

Commimication between the micromachine and the FPP occurs through the upper four of the 16 
Special-Purpose External Registers referenced by microorder SRIN. These are registers C through F 
(hexadecimal). The registers are selected indirectly through the N register (refer to Section 2 of this 
manual). 

When SRIN is in the STORE field of a microinstruction and N is set to C (hex) through F (hex), the 
data present on the Y-Bus will be accepted by the FPP. Similarly when SRIN is in the B-Bus field and 
N is set to C (hex) through F (hex), the FPP will drive the B-Bus with the required information. The 
table below shows the assignment for the four SRIN locations: 

READ 

RESULT 

RESULT, ALSO SAVED IN ACCUMULATOR 

ERROR CONDITION 

HP RESERVED 



11-5. SEQUENCE OF OPERATION 

The FPP will operate in one of two general sequences. The first sequence is used for all floating point 
operations except division, and the second sequence is used for division. 

Sequence for add, sub, mpy, fix, fit, shl, shr, cv: 

1. Transfer a control word to the FPP. 

2. Transfer the input operands to the FPP. 

3. Wait three microcycles. 

4. Transfer results to the destination. 

5. Check the error condition if necessary. 



REGISTER 


WRITE 


SRIN-F 


DIVIDE CONTROL WORD 


SRIN-E 


CONTROL WORD 


SRIN-D 


A-SIDE OPERAND 


SRIN-C 


B-SIDE OPERAND 
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Sequence of operation for division: 

1. Transfer a control word to the FPP. 

2. Transfer the input operand to the FPP. 

3. Transfer the required divide control words. 

4. Wait two microcycles. 

5. Transfer the results to the destination. 

6. Check the error condition if necessary. 



11-6. TRANSFER OF CONTROL WORD 

To start any operation, a control word must first be passed to the FPP. To make the transfer, the N 
register must first be set to E and SRIN must be in the STORE field of the microword. Data on the 
Y-Bus is then transferred to the FPP control logic. This control word contains the following 
information: 

1. The operation to be performed by the card, 

2. The source for the A-side operand, 

3. The source for the B-side operand, 

4. The destination for the result. 

After the control word is transferred, the FPP will accept the operands from the designated source. 



11-7. TRANSFER OF INPUT OPERANDS 

After a control word has been passed to the FPP, the control logic determines which operands to accept 
from the Y-Bus and which operands are to come from an accumulator or ACR. 

When both operands come from the micromachine over the Y-Bus, the A-side operand must be stored 
at location SRIN-D, and the B-side operand must be stored at location SRIN-C. 

When only one operand is required from the micromachine, (the other operand coming from an 
accumulator or ACR) the operand must be passed through SRIN-D regardless of whether the operand 
is an A- or B-operand. 

NOTE 

When operands are passed to the FPP they are always stored in 
an accumulator location. The location used to store the operands 
is determined by two fields in the control word. All operands are 
handled with the most significant word first. 

When no operands are required from the micromachine, a special in the SPO field is used to transfer 
the operands to the FPALU. One of the SPO fields is dedicated for use in controlling the FPP card. The 
SPO microorder CK2 is used to transfer data from the accumulators and/or ACR to the FPALU at two 
words (32-bits) per microcycle. This special is used only when no operands are required from the 
micromachine. A line of microcode containing CK2 in the SPO field will transfer 2 words to both A and 
B ports of the FPALU. For a double precision operation, CK2 must be coded in two lines of microcode to 
transfer the four words of data. 
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The A-side operand can come from either the Y-Bus, one of four accumulator locations or from the 
ACR. The B-side operand can come only from the Y-Bus or one of the four accumulator locations. 



11-8. TRANSFER OF RESULTS 

When the FPP has completed the required operation the result is available to be accessed from SRIN-E 
or SRIN-F. The result is retrieved by having SRIN in the B-field of the micro word and N set to E or F. 
The destination can be any accumulator location, register file location, or main memory location. 

When the destination for the result is only the B-Bus (not stored in an accumulator) the result must be 
read from SRIN-F. When the destination is both the B-Bus and one of the four accumulators, the result 
must be read from SRIN-E. At the time of the read, the data is written into an accumulator and is 
available on the B-Bus. 

Data can be transferred to an accumulator at double speed by also asserting the CK2 special in the SPO 
field with the read from SRIN-E. During this double transfer only the first word is available on the 
B-Bus. 

The following table shows all possible combinations for the destination of the result. 



READ FROM 

SRIN-F 
SRIN-E 
SRIN-E 



DESTINATION 
ACCUMULATOR B-BUS 



X 
X 



X 

X 

(X) 



SPO 
FIELD 



CK2 



OPERAND 
TRANSFER RATE 

1 Word per Microcycle 

1 Word per Microcycle 

2 Words per Microcycle 



11-9. TRANSFER OF ERROR CONDITIONS 

An error condition status word can be accessed after the required delay time either before or after the 
results have been retrieved. This error condition word is read at SRIN-D. The most significant bit of 
this word is read as a logic one if an overflow or an underflow has occurred during the last operation. 
The bit is cleared if no error has occurred. 
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11-10. WRITING MICROCODE FOR THE FPP 



11-11. GENERAL FLOATING-POINT MICROCODE 

For all floating point operations, the control word passed to the floating point card at SRIN-E contains 
the information in the fields shown in the diagram below. 

CONTROL WORD AT SRIN-E 



15 14 13 12 11 10 9 


8 7 


6 


5 4 


3 2 


1 


FUNCTION 


A 


B 


D-ADDR 


B-ADDR 


A-ADDR 



11-12. FLOATING-POINT CONTROL- WORD FIELDS 

The FUNCTION field translates to the seven-bit function opcode which is used by the FPP logic 
circuitry to decide what operation to perform. These functions are written as phrases in the para- 
phraser language. These phrases and the operations they perform are given in Table 11-2. 

Table 11-2. Microprogrammable Floating-Point Functions 







ARITHMETIC 


PHRASE 


OPERATION PERFORMED 


EXPRESSION 


add.f2 


single precision addition 


D:=A+B 


sub.f2 


single precision subtraction 


D:=A-B 


add.f4 


double precision addition 


D:=A+B 


sub.f4 


double precision subtraction 


D:=A-B 


shr.i4 


to 63 right shift 


D:=A shifted right B 


shl.i4 


to 63 left shift 


D:=A shifted left B 


ft.i1.f4 


float single integer to double precision floating 


D:=A 


ft.i2.f2 


float double integer to single precision floating 


D:=A 


ft.i2.f4 


float double integer to double precision floating 


D:=A 


cv.f4.f2 


convert double precision to single precision floating 


D:=A 


fx.f4.i1 


fix double precision floating to single integer 


D:=A 


fx.f4.i2 


fix double precision floating to double integer 


D:=A 


mul.i2 


double integer multiply 


D:=A*B 


mul.l2 


double logical multiply (unsigned) 


D:=A*B 


mul.f2 


single precision multiply 


D:=A*B 


mul.f4 


double precision multiply 


D:=A*B 


div.i2 


double integer divide 


D:=A/B 


div.l2 


double logical divide (unsigned) 


D:=A/B 


div.f2 


single precision divide 


D:=A/B 


div.f4 


double precision divide 


D:=A/B 


clear 


clear opcode (default) 





11-6 



Floating Point Processor 



The A field of the control word is used to select the source for the A-side operand. This field encodes the 
three possible combinations of the source for the A-operand into a 2-bit field. 



A-operand source: 
PHRASE 



a bus 

a ace 

a rom 



OPERATION 

A-side operand from Y-Bus (default) 
A-side operand from an accumulator 
A-side operand from ROM 



The B field is used to select the source for the B-side operand. 

B-operand source: 

PHRASE OPERATION 



b bus 

b ace 



B-side operand from Y-Bus (default) 
B-side operand from an accumulator 



The A-ADDR field is the address of the accumulator where the A-side operand is presently located, or 
where the A-side operand is to be stored when being passed over the Y-Bus to the FPP. If the A-side 
operand comes from ROM the contents of this field have no effect. 



A-ADDR field: 




PHRASE 


OPERATION 


aO 


accumulator (default) 


al 


accumulator 1 


a2 


accumulator 2 


a3 


accumulator 3 



The B-ADDR field is the address of the accumulator where the B-side operand is presently located, or 
where the B-side operand is to be stored when passed to the FPP. 



B-ADDR field: 




PHRASE 


OPERATION 


bO 


accumulator (default) 


bl 


accumulator 1 


b2 


accumulator 2 


b3 


accumulator 3 



The D-ADDR field is the address of the accumulator where the result is to be stored. 



D-ADDR field: 




PHRASE 


OPERATION 


dO 


accumulator (default) 


dl 


accumulator 1 


d2 


accumulator 2 


d3 


accumulator 3 
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11-13. PARAPHRASER FLOATING-POINT SENTENCE 

The required information for an FPP control word is specified in the paraphraser by a floating point 
sentence initiated by "fp" followed by function phrases. The "fp" microinstruction specification is a 
sjonbol for the paraphraser that causes the specified information to be encoded in the 16-bit data field 
of a Word Type 6. 

The general form for the paraphraser sentence is the following: 

stor:«fp( function, vwhat operation to perform 

a-operand source, 'source for the a-slde operand 

b-operanid source, •source for the b-side operand 

B-operand address, •accumulator address for a-side operand 

b-operand address, •accumulator address for b-side operand 

d-result address); •accumulator address for result 

An example of writing floating-point microinstructions in the paraphraser language is shown below: 

ns-OxE; •set n to OxE 

srin: "f p(add.f 2,a_bus , •add the operand coming over the y-bus 

b_acc ,aO ,b1 ,d2) ; •to the contents of accumulator 1 

dn; »set n to OxD 

srin: -a; •pass operand <a,b) to the FPP 
sr in: "b; 

nop; •wait three cycles 
nop; 

in; 'set n to OxE 

x:«srin; •store the result in <x,y> 

y:*srin; 'result also is stored in accumulator 2 



NOTE 

Each e:cpression ending in a comma is a phrase, and each 
paraphraser sentence ends in a semicolon. 

The example floating point sentence says: perform a single-precision floating-point addition (add.f2) 

on a number to be passed to the FPP over the y-bus (a bus) and a number in an accumulator (b ace). 

The number being passed over the y-bus is stored in accumulator zero (aO), and the number in the 
accumulator is at location one (bl). The result, if read from SRIN-E, will be stored in accumulator 
two (d2). 

The paraphraser phrase "fp(. . .)" generates 16 bits of immediate data which can be stored to any 
register. This 16 bits of data must eventually be stored to SRIN-E to initiate an FPP operation. The list 
of fields within the parenthesis can be in any order or can be defaulted. 
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11-14. FLOATING POINT DIVISION 



In floating point division the control word at SRIN-F has two primary uses. The first use is to provide 
the required control signal to the FPP during divide operations. The second use is to load the 
Arithmetic Constant ROM address pointer with the address of the next constant to be used. 

To transfer the divide control word to the FPP, SRIN must be in the STOR field of the microword, and 
N must be set to F. The word stored to SRIN contains the information below. 

CONTROL WORD AT SRINF 



15 14 13 12 11 10 9 


8 


76543210 


DIVIDE OPERATON 




ROM ADDRESS 



The DIVIDE OPERATION field contains one of three function opcodes that is used by the floating 
point hardware during division. 

Divide operation codes are the following: 



PHRASE 

divsetup 

qbitS 

qbit2 



OPERATION 

prepare for division sequence 
generate three bits of quotient 
generate two bits of quotient 



During any division, a specific sequence of divide control words must be passed to the FPP to control 
the operation. These divide control words are passed to the FPP after the main control word and all 
operands have been transferred to the FPALU by methods previously described. After the last operand 
has been transferred to the FPALU, the following sequence of divide control words must be stored to 
SRIN-F: 



PHRASE 


OPERATION 




div.i2 


1 divsetup, 11 qbit3, 


1 qbit2 


div.l2 


1 divsetup, 11 qbit3. 


1 qbit2 


div.f2 


1 divsetup, 9 qbit3 




div.f4 


1 divsetup, 19 qbit3 





After the last divide control word has been stored to SRIN-F, two wait states are required before the 
results are available. 

The ROM ADDRESS field contains the data to be stored into the ROM address pointer register. This 
address pointer is always automatically incremented afler each access allowing the next constant to be 
accessed. The ACR is used by the microcode which executes the SIS macroinstructions and is not 
intended for general use. 
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11-15. PARAPHRASER DIVISION SENTENCE. Floating point division information is 
specified in the paraphraser by a floating point sentence. The general form of the division sentence is 
the following: 



stor :"f ptdivide operation); 



•divide operation to perform 



stor : «fp(ron)_addr/ label) ; 



•address of ACR pointer 



An example of a floating point divide operation is given below: 



n:-Ox 
srin: 
b_a 
ck2; 
in; 
srin 
srin 
srin 
srin 
srin 
srin 
srin 
srin 
srin 
srin 
nop; 
nop, 
a: "sr 
b: "sr 



E; 

■fp<dlv.f 2,a_acc , 

cc ,aO ,b1 ,d1 ); 



■f pCdlvsetup) ; 

•fp(qblt3)i 

-fp(qbit3); 

-fp(qbit3); 

•fp<qbit3)! 

•fp(qbit3)i 

-fp(qblt3); 

-fp(qblit3)i 

-fp(qbit3)| 

-fp<qblt3)i 

dn; 
in; 
in; 



•set n to OxE 

•divide the contents of accumulator 

•zero by accumulator one 

•clock in operands 

•set n to OxF 

•prepare to do divide sequence 

•transfer nine qbit3 sequences 



•wait two cycles 

•set n to OxE 

•place result in (a,b) 



11-16. CONTROL STORE STARTING ADDRESS 

The capabilities of the FPP are available identically in all microcode to the 16k-words of control store 
of the computer. 

The starting microaddress of the first block of control store located on the FPP is 0x1000 (hex). The 
length of the block is determined by the jumpers associated with that block, and it is either 2k or 4k 
words long. The starting address for the second block of control store on the FPP is switch selectable. 

Each block also has one switch that will enable or disable the associated block of control store. When 
enabled, the control store of that block will respond to microaddresses within its range. When disabled, 
the control store will not respond. 

All control store on the FPP has higher priority in the control store chain than the control store on the 
processor card, but has lower priority than any control store on the WCS or PCS cards. 

The block of control store from 0x1180 to 0x1 ICO xlOOO) has logic associated with it for overlaying a 
portion of the control store on the processor containing the section of the jump table which decodes the 
floating-point dependent macroinstructions that are executed from the FPP. 

This feature is enabled and disabled by a switch on the FPP card. When disabled, this block of 
microcode will be executed from the processor control store; i.e., normal operation. When enabled, this 
block will be executed from the control store an the FPP, which disables the processor control store. 

For information on setting the FPP switches and jumper installation refer to the HP 1000 A700 User 
Control Store Installation and Reference Manual, part no. 02137-90003. 
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The microprogram examples in this section illustrate the microprogramming concepts presented 
throughout the remainder of this manual. Each microprogram is complete in itself and can be used 
directly in the A700 processor or used as an example for creating your own microprogram. The 
following assumptions are made for the use of the material in this section. 

• The program is to be run on an HP 1000 A700 computer system in which the software of the HP 
92045A Microprogramming Package has been loaded into the RTE operating system. 

• RTE system interface and device table entries (SC-LU relationship) must have been made. 

The examples use the paraphraser microprogram language to prepare the source microprograms and 
generate object code. The source microprograms can be edited with the Edit/1000 editor. The object 
code should be tested using the HP 12 153 A WCS card in the control store of the processor 

When you are ready to run the paraphraser from your disc source file, refer to the procedures in 
Section 8 for Using the Paraphraser. This section tells you the control commands to use and describes 
the output listing and error messages you may obtain from paraphraser execution. When you are 
ready to load your program into WCS, refer to Section 9 on Writeable Control Store Support Software. 

There are three microprogram examples included in this section. They are a buffer initialization 
routine, a Shell sort, and a privileged driver. The order of complexity increases with each example. The 
privileged driver is very complex and should not be attempted before the microprogrammer has 
attended the Hewlett-Packard RTE microprogramming class for HP 1000 systems (product number 
22964B). The microprogrammer should also have a good working knowlege of RTE-A.l or RTE-XL 
operating system internals and HP 1000 driver writing. 

All three of the example microcode routines were debugged using the HP 1610B Logic State Analyzer. 



12-1. BRANCHING TO THE EXAMPLE PROGRAMS 

A jump table (as described in Section 6) is used to branch into the three microrou tines. The jump table 
is shown in Figure 12-1. 
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MPARA,L,F; 

UIG_JMP: $origin 0x3000$ 

• DESCRIPTION: 

• 

The following jump table ia used to branch into the 
various microcode routines. The buffer initialization 
routine uses the flrat opcode, followed by the Shell 
sort routine, and the driver. All user opcodes in 
the range 10(x01>500 to 10(x01>517 (octal) decode 
via the FPLA to location OxOlaa (hex) in the control 
store. Location OxOlaa has the following instruction: 

lorigin Ox1aa$ gototbl 0x3000; 

This causes a jump to control store address space 
0x3000 thru Ox300F depending on the opcode. This 
routine is located there and will jump to the true 
destination address for that opcode. 

CAUTION: All microcode addresses that reference the base set 
should be verified (see listings in appendix). 



Destination addresses 



$def ine 
$def ine 
«def ine 
tdefine 
fdef ine 
• 

UIG_OP0: 
UIG 0P1 : 
UIG_aP2: 
UIG 0P3: 
UIG DP4: 
UIG_0P5: 
UIG 0P6: 
UIG 0P7: 
UIG_0P8: 
UIG 0P9: 
UIG OPA: 
UIG OPB: 
UIG OPC: 
UIG OPD: 
UIG OPE: 
UIG OPF: 



adrs/ ini t 
adra/sort 
adra/send 
adra/ trap 
adra/int uit 



0x3030$ •Buffer init routine 

0x3050$ tShell sort 

0x3090$ »Privileged driver init 

0x3100$ tPrivileged driver completion 

0x00B6$ tlllegal user opcode, abort with UIT 



goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 



ini t ; 

sort ; 

send; 

trap; 

int_ui 

int_ui 

int_ui 

int_ui 

int_ui 

int_ui 

int_ui 

int_ui 

int_ui 

i n t _ u i 

int_ui 

i n t u i 



.P 

• P 
'P 
.P 
'P 
.P 
.P 
.P 

• P 
.P 
.P 



■fa; 

•fa; 
■fa; 
■fa; 
■fa; 
■fa; 
■fa; 
■fa; 
-fa; 
■fa; 
■fa; 
■fa; 



•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
•10(x01 
»10(x01 
•10(x01 
•10(x01 
»10(x01 
•10(x01 
•10(x01 



)500B 
)501B 
)502B 
)503B 
)504B 
)505B 
)506B 
)507B 
)510B 
)511B 
)512B 
)513B 
)S14B 
)515B 
)516B 
)517B 



Figure 12-1. Jump Table to Example Microprograms 
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12-2. BUFFER INITIALIZATION EXAMPLE 

EXAMPLE 1: INITIALIZE BUFFER, FORTRAN PROGRAM 

FTN7X,L,I,Y 

PROGRAM J0KE3 
C 

C MAIN PROGRAM: 
C 

C Calls assembly routine 'INIT' to initialize a 
C user buffer. 'INIT' invokes the microcode. 
C 

C RUN STRING: RUN, J0KE3, START, INC, NUMBR 
C 

C START: Starting value of buffer 

C INC: Increment between values 

C NUMBR: Total number of elements 

C 

IMPLICIT INTEGER (A-2) 

DIMENSION BUFF(IOOOO) 

DIMENSION PARMS<5) 

EQUIVALENCE CPARMS( 1) , START) , (PARMS<2) , INC) 

EQUIVALENCE (PARMS( 3) ,NUMBR) 
C 

C Get starting value, increment, and number of elements 
C 

CALL RMPARC FARMS) 

IF (lABS(NUMBR) .GT. 10000) GOTO 999 
C 

C Initialize the buffer 
C 

CALL INITCBUFF, START, INC, NUMBR) 
C 

C Print the buffer to scheduling lu 
C 

SESN - -1 

LU - LOGLU(SESN) 

WRITE(LU,10)(BUFF(J) ,J-1 , NUMBR) 
10 F0RMAT<8(2X,I6)) 

999 END 



EXAMPLE 1: INITIALIZE BUFFER, ASSEMBLER INTERFACE 

MACRO, L 

NAM I NIT, 7 
• 

• Calls the microcode to initialize the buffer passed 

• by the calling program. 
* 

• CALLING SEQUENCE: 

• CALL INITCBUFF, START, INC, NUMBR) 

* 

ENT INIT 
EXT .ENTR,.INIT 
• 

• .INIT must be declared as an entry point in a seperate 

• assembly module as follows: .INIT RPL 105500B 
• 

BUFF BSS 1 BUFFER ADDRESS 

START BSS 1 STARTING VALUE 

INC BSS 1 INCREMENTS 

NUMBR BSS 1 NUMBER OF ELEMENTS 
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« 

INIT NOP 

JSB .ENTR GET PARAMETERS 

DEF BUFF 

• Branch to control Store Address (0x3000) 

« 

JSB .INIT USER OPCODE 

DEF §BUFF BUFFER ADDRESS 

DEF SSTART STARTING VALUE 

DEF flNC INCREMENT 

DEF §NUMBR NUMBER OF ELEMENTS 

« 

JMP eiNIT RETURN 
END INIT 



EXAMPLE 1: INITIALIZE BUFFER, MICROPROGRAM 

MPARA.L.F; 

* 

UG_INIT: Sorigin 0x3030$ 

• DESCRIPTION: 
• 

• Instruction 'INBUF' initializes a buffer in the user 

• program as specified by the calling program. The 

• instruction is non-interruptable and does not check 

• for interrupts after every write to user memory. 

» The memory protect logic is enabled so that any memory 

» violation will be detected before the next instruction 

• is executed (ie. before the next JTAB) . Therefore, 

• memory is protected throughout the entire instruction. 
« 

» CALLING SEQ: 
* 

• JSB .INIT 

• DEF BUFF C,I) 

• DEF START (,I) 

• DEF INC (,I) 
DEF NUMBR ( ,i) 

4 

is the user buffer 

is the starting value to initialize 

the buffer with Cie. buf f ( 1 )-stBrt) 

the increment to the next buffer value 

(ie. buff(2) « atart+inc) 

the number of words to initialize 

• (if numbr <0 use ab5(numbr)) 
• 
« 
EXTRNL: Sdefine adrs inst_restart OxOODOJ 



INT_BUF: rdp , ip; •read def buff 

call RSV_IND; »resolve indirects 

• must complete read started by RSV_IND 

• s7 has the direct buffer address on return 



• Where: 


BUFF 




START 








INC 








NUMBR 
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nop : " t , 

ip, rdp; 
call RSV_IND, 

96 :- 57; 
ace : ■ t , 

ip, rdp; 
call RSV_IND; 
a1 :- t, 

ip, rdp; 
call RSV_IND; 
a2 :- p; 
ct :- t; 
CONT: if yz goto DONE; 

if not y15 goto PDS_DK; 
ct :- -t; 
PCS OK: p :- s6, 

dct ; 
» 

• init buffer 
* 
NEXT: wrp :» ace, ip; 

ace : « ace + a1 , 

if not ctz goto NEXT; 
DONE: p :- a2; 

fchp, rtn; 

• » 

* Subroutine RSV_IND • 

* • 



•dummy read 
♦read START 
•reaolve indirecta 
•aave def buff 
•aave START value 
•read INC 

•reaolve indirecta 
•aave INC value 
•read NUMBR 
•resolve indirecta 
•aave return pc 
•load ct w/ NUMBR 
•NUMBR- 0? 
•NUMBR>0? 
•make poa 
•p-def buff 
•ajuat count 



•write to buffer 

•next data element 

• 

•reatore pc 

•return 



• RSV_IND uaed to reaolve indirect 

• referencea by caller. After 3 levela 

• of indirect, interrupta are checked. 

• Control ia returned to the baae aet 

• if there ia a pending interrupt. 
• 

• Calling parametera: 

• On entry: Unreaolved addreaa muat be in "T" regiater 
• 

• On exit: Data ia returned in the "T" regiater. 

• Uaer muat pick it up! 

• The direct addreaa ia returned in the 

• acratch regiater a7. 



RSV_IND: a7 :- t; 

if not y15 then rtn, 
rdb, bbua/t; 

a7 :- t; 

if not y15 then rtn, 
rdb, bbua/t; 

a7 :- t; 

if y15 then goto CK_INT; 

rdb, bbua/t , rtn; 
• 
• Check for interrupt eonditiona 

CK_INT: if intp goto SER_INT; 

rdb, bbua/t, goto RSV_IND; 



•freeze ? 

•def to y bua 

•l9t level 

•data or def read 

•def to y bua 

•2nd level 

•data or def read 

•def to y bua 

•allow interrupta 

•otherwise read data 

•and return 



•you loae 
•keep looking 
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• Jump back to Base Set to service interrupt 

• 

• Note that aince we are checking interrupts within 

• a subroutine, the code cannot just return to the 

• base set, but MUST do a goto. 

• 

SE:R_INT: goto i nst_restar t , ^service interrupt 

p :■ fa; •original pc 



12-3. SHELL SORT EXAMPLE 

This example performs a sort of numeric data to illustrate the benefits of microprogramming a typical 
program that may be used repeatedly in a particular application. It includes three parts: 

a. A FORTRAN program to generate an unsorted buffer, print the unsorted buffer, call a sort 
program, and print the sorted buffer. 

b. An Assembly language program to interface to a microprogram which performs the actual sort. 

c. The sort microprogram that uses a diminishing increment sorting algorithm to sort an array of 
integers into ascending order. The routine does check for interrupts and will return to the base set 
if necessary. This method is called a "Shell sort." 

The calling sequence is as follows: 

LDA NUMBR 

LDB BUFF 

CLE 

JSB SORT 

Where: 

NUMBR is the number of array elements to sort 
BUFF is the starting address of the buffer 

E reg indicates first entry into SORT 

Register usage: A number of elements (not modified) 

B address of buffer (not modified) 

X used to save interrupted address 

Y used to hold current partition increment 

used as a swap flag 

E used as a reenterant flag 

The flowchart of Figure 12-2 is provided to help you follow the program code in the shell sort example. 
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r start ) 


i 


Save Program Counter 




no. of \^yes 
elements<0 > — ►-exit 



init offset y=a 



I 



set offset y=y/2 




-<D 



^ yes 
offset = "s;_:^_exit 

7 



No. of compares to counter ct=a-y. Form address of i 
element in the program counter (p=b). Form address 
of] element in a scratch register (sx=b+y). Init swap 
indicator (clo). 



Read i element and save, inc i 
address and save old i address. 



<D 




Save old p in x, set e, 
restore old program cnt, 
save counter and exit 
to base set. 



restore i addr (p=x), 
restore j addr (sx=p+y) 
restore count 




Figure 12-2. Flowchart of Shell Sort Program 
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EXAMPLE 2: SHELL SORT, FORTRAN TEST PROGRAM 

FTN7X,L,I ,Y 

PROGRAM JDKE4 
C 

C MAIN PROGRAM: 
C 

C Calls Subroutine 'INIT' to initialize a user 
C buffer <ie. unsorted buffer). 
C 

C Then subroutine 'SORT' is called to sort the 
C data buffer. 'SORT' calls the microcode. 
C 

C RUN STRING: RU, J0KE4, START, INC, NUMBR 
C 

C START: STARTING VALUE 

C INC: INCREMENT BETWEEN VALUES 

C NUMBR: TOTAL NUMBER OF ELEMENTS 

C 

IMPLICIT INTEGER <A-Z) 

DIMENSION BUFF(IOOOO) 

DIMENSION PARMS<5) 

EQUIVALENCE (PARMSC 1 ) .START) , ( PARMSC 2) , INC) 

EQUIVALENCE (PARMS( 3) .NUMBR) 
C 

C Get starting value, increment, and number of elements 
C 

CALL RMPAR(PARMS) 

IF CIABStNUMBR) .GT. 10000) GOTO 999 
C 

C Initialize the buffer per run string parameters 
C 

CALL INITCBUFF, START, INC, NUMBR) 
C 

C Print the unsorted buffer to scheduling lu 
C 

SESN - -1 

LU - LOGLU(SESN) 

WRITEtLU.D 
1 FORMAT</20X, "UNSORTED BUFFER"/) 

WRITE<LU,8)<BUFF<J),J-1 , NUMBR) 
8 F0RMATC8(2X, 16)) 
C 

C Sort the buffer 
C 

CALL SORTtBUFF, NUMBR) 
C 

C Print the sorted buffer 
C 

WRITE<LU,15) 
15 FDRMAT<//20X, "SORTED BUFFER"/) 

WRITE(LU,18)<BUFF(J) ,J-1 , NUMBR) 
18 F0RMAT<8<2X,ie)) 

999 END 
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EXAMPLE 2: SHELL SORT: TEST ASSEMBLER INTERFACE 

MACRO, L 

NAM SORT, 7 
• 

• Calls the microcode to sort a buffer passed 

• by the calling program. 
• 

• CALLING SEQUENCE: 

• CALL SORKBUFF.NUMBR) 
* 

ENT SORT 

EXT .ENTR,.SORT 

• .SORT must be declared as an entry point in another 

• assembly module as follows: .SORT RPL 105501B 
• 

BUFF BSS 1 BUFFER ADDRESS 

NUMBR BSS 1 NUMBER OF ELEMENTS 

• 

• 

SORT NOP 

JSB .ENTR GET PARAMETERS 

DEF BUFF 
* 

• Branch to control store address (0x3001) 
• 

LDA §NUMBR 
LDB BUFF 
CLE 
• 

• B-DEF BUFF A-#ELEMENTS E-0 
• 

JSB .SORT 
JMP eSORT 
END SORT 



EXAMPLE 2: SHELL SORT, MICROPROGRAM 
MPARA.L; 
UG_SORT: lorigin 0x3050$ 

• DESCRIPTION: 
• 

• Instruction 'SORT' uses a diminishing increment sorting 
» algorthim to sort an array of integers into ascending 

• order. 'SORT' is interruptable and therefore does 

• check for memory protect on every memory read and write. 

• Memory protect checks are implicit on the A700 CPU 

• if the logic is enabled. (This is different from the 

• microcode in Hewlett-Packard M/E/F Series computers.) 
• 

• CALLING SEQ: 







LDA NUMBR 






LDB BUFF 






CLE 






JSB .SORT 




Where: 


NUMBR i 






BUFF i 






E reg i 



is the number of array elements to sort 
is the starting address of the buffer 
indicates first entry into SORT 
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EXAMPLE 2: SHELL SORT, MICROPROGRAM (Continued) 



» Register usage: A number of elements (not modified) 
» B address of buffer (not modified) 

• X used to save interrupted address 

• Y used to hold current partition 

• increment 

• Q used as a swap flag 

• E used as a reenterant flag 
* 

SORT: s7 :■ p; 'save program counter 

if e then goto INT_RTN; »re-enter ing? 
* 

» Initial program entry 
« 

y ;« a; 'save no. elements 

if y15 then goto EXIT, 'neg no. ?, if so goodbye 
ace :» ones; 'set ace • -1 

* 

• Calculate current partition 
# 

SETY: y :- IrKy); *y-y/2 

if yz then goto EXIT; 'all done? 

» Start sort with current partition offset 
» 

ST_PASS: ct :» a-y; 'calc loop count 

p :« b, 'p'i element addr 

dct; 'dec counter once 

s6 :■ b+y, 'sB-j element addr 

clo; vinit swap flag 

• Compare elements i and j 
« 

CMPAR: rdp,ip, •read i element 

sS :• p; 'save old i addr 

s4 :• t; "save i value 

rdb, •read j element 

a6 :• sG - ace; •inc j addr 

s3 :■ t; •save j value 

s2 :- a4 xor s3; •like signs ? 

if not y15 then goto SUB_UM, •yes, subtract um 

a4 :" s4; •test neg i 

if y15 then goto CK_INT; •if so, i<j 

goto SNAP; •j>i 

SUB_UM: s1 :- :s3-s4; •j-i>0 ? 

if not y15 goto CK_INT; •if yes, no swap 
• 

« Swap the elements 
» 

SWAP: wrta :■ s4, bbus/ma, •old j adr ■ i value 

sto; •indicate swap 

wrb :■ s3, bbus/sS; •old i adr ■ J value 
« 

• Check for interrupts (ie. MP, Parity, TBG, etc.) 
« 

CK_INT: if not intp goto END_CK, •any interrupts? 
» 

• Interrupts pending so exit as follows: 
• 

• Save the next i address (p) in the x register 

• Save the counter in the reserved user register 

• Restore the original program counter 

• Set e to indicate interrupt entry when we return 

• Return to base set 
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• 

INT EX: X :• p. 




•save i addr 


ste; 




•set int flag 


uar :- ct; 




•save count 


p :■ fa, fchb. 




•restore old pc 


rtn; 




•and return 


• Return from interrupt ! 


section: 




» Restore i address 


to p 




• Restore j address 


to s6 




• Accumulator to -1 






• Restore count 






INT_RTN: p:-x; 




•current i addr 


ct :- usr; 




•restore count 


s6 :- p+y; 




•current j addr 


ace :• ones; 




•ace " -1 



• Check for last compare in current partition 
• 

END_CK: if not ctz goto CMPAR; •more compares ? 

if o goto ST_PASS; •any swaps ? 

goto SETY; "get next increment 
• 

• Start Instruction Fetch, Exit 

EXIT: p :■ s7, fchb, •restore pc 

rtn; •return 



12-4. PRIVILEGED DRIVER EXAMPLE 

An I/O driver has an initiation section and a continuation/completion section. For any given I/O 
request, the operating system is involved with the driver in the operations of both these sections. 

The initial EXEC I/O request call forces an entry into the operating system. The operating system 
verifies the EXEC request parameters and builds an I/O request block from the user's parameters and 
performs other system checks. The I/O request block is passed onto the driver to carry out the I/O 
operation. The operating system performs these steps in about 1 or 2 milliseconds. 

There are some high speed, real time applications that require the user program to immediately 
service an I/O device without waiting for the operating system initial functions. Therefore, the 
programmer needs a way to "bypass" the operating system set-up and error checking. This can be 
accomplished by having the user program perform the driver initiation functions in a "privileged" 
routine. The required time can be further reduced by microcoding the initiation routine. A privileged 
microcoded initiation section driver is more than ten times faster than the normal driver that uses the 
operating system; however, the operating system protection is sacrificed. 

After the I/O card has either completed the data transfer or has completed a portion of the data 
transfer, the I/O card can be programmed to generate an interrupt. The interrupt starts the con- 
tinuation section by forcing an entry into the operating system. The operating system must save the 
current machine state, determine the cause of the interrupt, and enter the completion section of the 
appropriate driver. 
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The operating system overhead in the continuation/completion portion of the driver can also be 
eliminated by writing a privileged driver which can be further improved by microcoding. The 
privileged driver continuation routine is entered directly from the trap cell when the card interrupt 
occurs (i.e., bypassing the normal entry into the operating system). Therefore, the driver is responsible 
for saving the interrupted machine state on entry, performing the necessary I/O, and restoring the 
interrupted machine state upon exit. 



12-5. STRUCTURE OF EXAMPLE PROGRAM 

The example privileged microprogrammed driver is divided into two parts: an initiation routine called 
"SEND" and a continuation/completion routine called "TRAP". The "SEND" routine is entered di- 
rectly from the user program, and it is responsible for outputting a 16-bit data word and a 16-bit 
control word to the HP 12006A Parallel Interface Card (PIC). 

The "SEND" routine outputs the data to the I/O card, programs the card to interrupt, and returns to 
the user program. When the card's flag is set, the interrupt occurs. The interrupt causes the execution 
of the trap cell associated with the select code of the PIC card (30B). Normally, the trap cell contains a 
JSB indirect instruction into the operating system. For the privileged driver "TRAP," the user opcode 
is in the trap cell. Therefore, when the interrupt occurs, the "TRAP" microcode is entered directly from 
the trap cell. The "TRAP" routine is responsible for saving the state of the machine, completing the I/O 
transfer, and restoring the state of the machine upon exit. 

The calling sequence for the "SEND" routine is shown below: 

Calling Sequence: 

JSB .SEND 

DEF RTN Return address 

OCT SCDDE select code of PIC card 

OCT DVADR data for R31 of PIC 

OCT DATA data for R30 of PIC 

DTB 2B,C yQ instruction to load global register 

OTA 31 B yo instruction to load R31 

°TA 30B yo instruction to load R30 

STC 30B , C yo instruction to send "DVCMD" 

•- 1 B 2B y o instruction to save global register 

0TB 2B , C yo instruction to load global register 

CLC 30B,C yo instruction to disable device 

0TB 2B,C yo instruction to reset global register 

The A700 processor I/O architecture allows the I/O cards to monitor instruction fetches and execute 
the I/O instructions that match the I/O card's select code. Therefore, the microcoded driver must fetch 
the I/O instructions frora memory and broadcast the I/O instructions over the backplane for reading by 
the I/O cards. (This is quite different from the Hewlett-Packard M/E/F computer line, where the I/O 
instructions are generated internally in the microcode.) This is why the instruction ".SEND" peisses 
the I'O instructions as parameters to the microcoded driver, so that the driver can "broadcast" these 
instructions over the backplane. 
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Once the instruction is broadcast to the I/O cards, the microcode must assist the I/O card in executing 
the I/O instruction if processor resources are required. The I/O card is responsible for executing the 
instruction and the microcode acts as a slave processor to the I/O card during the execution of the 
instruction. 

EXAMPLE 3: PRIVILEGED DRVER, MAIN PROGRAM 

MACRO, L 

NAM J0KE6,3 

• MAIN PROGRAM: 
• 

• Calls the mlcrocoded driver "SEND" to output a 16-bit data word 

• to register 30 and a 16-bit control word to register 31 of the 

• parallel interface card <12006A). 
* 

• "SEND" programs the card to interrupt after accepting the data 

• (ie. when the device's flag is set) and returns to the the user 

• program. 
• 

• On interrupt, the base set microcode executes the trap cell. The 

• trap cell contains a user opcode that branches to the microcoded 

• completion driver called "TRAP". 
• 

• CAUTION: This is the ONLY program that can access the PIC 

• card because the operating system's protection 

• has been bypassed. 
• 

ENT J0KE6 

EXT EXEC,$LIBR,$LIBX,.XSA1 ,.XLA1 ,$PIMK,.SEND 

• .SEND must be declared as an external in another assembly module 

• as follows: .SEND RPL 105502B 

• 

• Disable memory protect by going privileged so that the trap cell 

• for the PIC card can be modified without causing a memory protect 

• violation. 
• 

• 

J0KE6 JSB $LIBR (GO PRIVILEGED 

NOP • 

LDA OPCOD 'PATCH IN TRAP CELL FOR 

JSB .XSA1 •MICROCODED DRIVER "TRAP" 



9SC0DE 



* 



• The PIC card is set up to be a privileged interface. This means 

• that an interrupt from the PIC card could interrupt either a 

• user program or the operating system. Non-privileged I/O cards 

• can only interrupt a user program or the Idle loop of the 

• operating system. 



• 



• Note: In Hewlett-Packard M/E/F Series computers, a card is 

• privileged if it is physically placed beneath a privileged fence 

• card and the generation specifies that the system is privileged. 



• 



• In HP A700-Series computers, a privileged mask register is 

• maintained on every I/O card that Informs the I/O card 

• whether or not it can interrupt. The operating 

• system maintains the value of the privileged mask (the default 

• value is determined at generation time). The value is output 

• to the I/O cards with an OTA OB command. 
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EXAMPLE 3: PRIVILEGED DRIVER, MAIN PROGRAM (Continued) 

• The format of the privilege mask is shown below: 

* 

« 

• at 

« 

• 15 
• 

• CARD INTERRUPT DISABLED 

• BIT WHEN BIT IS SET 





IS 


scodea 


77-74 








14 


scodea 


73-70 








13 


scodea 


67-64 








12 


scodea 


63-60 








11 


scodea 


57-54 








10 


scodes 


53-50 








9 


scodea 


47-44 








8 


scodes 


43-40 








7 


scodea 


37-34 








6 


scodea 


33-30 








S 


acodes 


27-24 








4 


acodes 


23-20 








3 


scodea 


17-14 


reaerved for 


CPU 




2 


acodea 


13-10 


reaerved for 


CPU 




1 


tbg 













a t a t u a 


bit 








JSB 


.XLA1 i 


►GET DEFAULT PRIVILEGE M 




DEF 


$PIMK < 


• 








AND 


»B1 77677 * 


►CLEAR BIT FOR SCODE 


30- 




JSB 


.XSA1 < 


►RESTORE 


IT 






DEF 


KPIMK 










JSB 


$LIBX .TURN MEMORY PROTECT 






DEF 


•«1 tBACK ON 








DEF 


»+1 < 


► 







» The initiation of the I/O ia atarted by the "SEND" microcode 

• and ia completed by the "TRAP" microcode. The "TRAP" microcode 

• communicatea with thia program, ao we must make sure that this 

• program ataya in memory in the aame partition. The beat way 

• to do thia la for the Syatem Manager to "aaaign" thia program 

• to a fixed partition at boot-up time. Alao, the program ahould 

• lock itself into memory with an exec 22 call. These precautions 

• are needed becauae we are bypaaaing the operating ayatem'a 

• internal protection and aet up. 

JSB EXEC »LOCK IN PARTITION 
DEF •♦3 
DEF D22 
DEF LOCK 
• 

• Output the data to the PIC card 

• Tranafer timea: 

• 

• Start of "SEND" to completion of "SEND" - 76.8 us 

• Base set code to handle interrupt - 11.1 us 

• Start of "TRAP" to completion of "TRAP" - 16.0 ua 

* 

• Total tranafer time about 105 ua. 
• 

• NOTE: These timea were done on pre-releaaed hardware and baae 

• aet. Actual timea will be about 8 percent faater. 

• The PIC card waa installed with a loop-back hood. 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MAIN PROGRAM (Continued) 



CLE 

JSB .SEND 
DEF NEXT 
SCODE OCT 30 
R31 OCT 45 
R30 OCT 155 
0TB 2B,C 
OTA 31 B 
OTA 30B 
STC 30B,C 



•INDICATE FIRST ENTRY 

•ENTER LAB6 MICROCODE 

•RETURN 

•PIC SELECT CODE 

•R31 DATA 

•R30 DATA 

•SET UP GLOBAL 

•DATA TO R31 

•DATA TO R30 

•START TRANSFER 



• The following Inatructiona are used by the 

• trap cell driver code. 
• 

LIB 2B •SAVE GLOBAL CAUSE PRIVILEGED 
0TB 2B,C •SET GLOBAL FOR PIC 
CLC 30B,C •DISABLE PIC 
0TB 2B,C •RESTORE GLOBAL 
• 

• Do another transfer, this time indicate that the set up 

• code has already been completed. 
• 

• Transfer times: 
* 

• Start of "SEND" to completion of "SEND" - 22.4 us 

• Base set code to handle interrupt - 11.1 us 

• Start of "TRAP" to completion of "TRAP" - 16.0 us 
• 

• Total transfer time approx. 50 us 

• NOTE: These times were done on pre-released hardware and 

• base set. Actual times will be about 8 percent faster. 

• was installed with a loop-back hood. 

•NOT FIRST ENTRY 

•ENTER LAB6 MICROCODE 

•RETURN 

•PIC SELECT CODE 

•R31 DATA 

•R30 DATA 

•SET UP GLOBAL 

•DATA TO R31 

•DATA TO R30 

•START TRANSFER 

• The following instructions are used by the trap cell code. 
* 

LIB 2B •SAVE GLOBAL CAUSE PRIVILIGED 

0TB 2B,C •SET GLOBAL FDR PIC 

CLC 30B,C •DISABLE PIC 

0TB 2B,C •RESTORE GLOBAL 
• 

• Unlock the partition and go home 
• 

EXIT JSB EXEC •UNLOCK PARTITION 
DEF •+3 
DEF D22 
DEF UNLCK 



• 




NEXT 


CCE 




JSB .SEND 




DEF EXIT 




OCT 30 




OCT 47 




OCT 144 




0TB 2B,C 




OTA 31 B 




OTA 30B 




STC 30B,C 



JSB EXEC 
DEF »*2 
DEF SIX 

LOCK DEC 1 

UNLCK DEC 

D22 DEC 22 

SIX DEC 6 

OPCOD OCT 105503 
END J0KE6 
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• CALLING SEQ: 


CLE 




« 


CCE 




• 


JSB 


.SEND 


» 


DEF 


RTN 


• 


OCT 


SCODE 


* 


OCT 


CNTL 


* 


OCT 


DATA 


• 


OTB 


2B,C 


* 


DTA 


31 B 


• 


OTA 


SOB 


* 


STC 


30B,C 


* (used by trap) 


LIB 


2B 


* 


OTB 


2B,C 


• 


CLC 


30B,C 


« 


OTB 


2B,C 



Microprograms 

EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" 

MPARA.L; 

« 

UG_SEND: 

« 

• DESCRIPTION: 
* 

• The inatruction "SEND" is a microcoded driver used to output a 

• 16-bit data word to register 30 and a 16-bit control word to 

• register 31 of the parallel interface card (12006A). The card 

• is programmed to interrupt upon completion of the data transfer, 

• A microcoded completion routine "TRAP" is used to complete the 

• data transfer. The routine "TRAP" is entered directly from the 

• trap cell upon interrupt. 
• 

« 

Indicates first entry 
All subseqent entries 

User opcode 
Return Address 
Select code of PIC card 
Data for R31 of PIC 
Data for R30 of PIC 
Set up Global Register 
Output to R31 of PIC 
Output to R30 of PIC 
Enable transfer and interrupt 
Save Global Register 
Output to Global Register 
Disable PIC card 
Restore Global 
« 

• » 

• Start of Main Program • 

• • 

• 

• Environment: The instruction "SEND" is entered directly from the 

• user program. Therefore, memory protect is enabled 

• and the mapping system is set up for the currnet 

• executing program (ie. the program that executed 

• the instruction "SEND"). The global register is 

• available and does not have to be saved. 
« 

• Register usuage: 
« 

• sO -- Contains the return address of the next 

• user instruction 

• b5 -- Scratch register 

• s6 -- Scratch register 

• s7 -- Scratch register 

• usr -- bits 0-5 PIC card's select code 

« bit 15 1'card busy 0*card available 

« prin(6) -- Contains the map set number associated with the 

• PIC card's select code. This map set (ie. port 

• map) will contain a copy of the current user map. 

• prin(7) -- Contains the 15 bit logical memory address that 

« points to the LIB 2B instruction in the user map. 

• This instruction will be used by the "TRAP" 

• microcoded driver. 
« 

• Note: 

» Usr, prin(6), and prin(7) are used to pass information to the 

• trap cell microcode completion routine. 
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Microprograms 
EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 
SEND: Sorigin 0x3090$ 



* 



• 



rdp, ip; •read return address 

sO :- t; 'save it 



• All I/O instructions must be executed with memory protect 

• disabled in order to function correctly. Otherwise, the iorq 

• (input/output request) signal will not be recognized by this 

• microcoded driver. 
• 

call MP_DIS; »disable memory protect 

rdp, ip; tread select code 

• 

• Go set up the port map associated with the select code for the 

• PIC card. The port map information will be used by the trap 

• cell microcoded driver that is entered after the I/O card 

• interrupts. The select code is returned in the user reserved 

• register "USR". 
• 

call MAP_SAV; tgo set up port map 

• Pull in the parameters passed by the calling program. 
* 

b :■ usr, 'b'select code 

rdp, ip; 'read R31 data 

a :■ t, *a«R31 data 

rdp, ip; *get R30 data 

s5 :■ t, 'temp save of R30 data 

stf; •indicate no iohs 

• 

• Broadcast the I/O instruction "0TB 2B,C" over the backplane for 

• the I/O cards to recognize. This I/O instruction loads the 

• global registers (located on every I/O card) with the select 

• code in the B register. Since the PIC's select code is in the 

• B register, we have "enabled" the PIC card to execute all further 

• I/O instructions. Only the I/O card whose select code matches 

• the current contents of the global register will execute the I/O 

• instruction. 
« 

call 10 CMD; •broadcast 0TB 2B,C 

call DUT_GLB; •execute 0TB 2B,C 

ip, elf; •do IOHS from now on 

• Output the 16 bit control word to Register 31 of the PIC card 

call IO_CMD; 'do GTA 31 B 

« 

• Output the 16 bit data word to Register 30 or the PIC card 
« 

a :- s5, •a*R30 data 

ip; • 

call IO_CMD; ^do OTA 30B 

ip; • 
« 

• Send the Device Command signal to the device and clear the 

• flag so that the device flag will generate an interrupt. 

call IO_CMD; •do STC 30B,C 

• 

• Indicate that the I/O operation is in progress. The "USR" register 

• register is used to communicate information to the trap cell 

• microcode. 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 

• 

uar :• 0x8000 ior uar; •set busy bit 

ip; •P-pointer to LIA 2B 

n :- 0x0007; 'set index for PRIN 

prin :» p; "save for trap cell code 

call MP_ENB; ♦turn MP back on 

p :> aO; treatore user pc 

fchp, rtn; •return to user 
♦•••••••••«•••»#»••••••••••••»•••••••»•*••••••••••••••♦♦•••••»••••• 

« • 

» Subroutine MP DIS « 



• Diaablea the memory protect logic by aetting bit bit 12 in the 

• CPU'a interrupt atatua regiater (iat). The aubroutine also 

• clears any outatanding memory protect violationa by writing a 

• value of 2 into the lower 4 bita of the iat regtater. 
• 

MP_DIS: a6 :- OxfffO and iat; *set MP bit in iat 

iat :- s6 ior 0x1000; • 

a6 :• OxfffO and iat; 'clear any generated 

iat :- 0x0002 ior b6; »MP violationa 

rtn; * 



• • 

• Subroutine MP_ENB • 

• • 

• 

« Enables the memory protect logic by clearing bit 12 

• in the CPU'a Interrupt atatua regiater (Iat). 

• 

MP_ENB: aG :■ OxfffO and ist; 'clear MP bit in ist 

1st :■ s6 and not 0x1000; • 
rtn; • 

• • 

• Subroutine DUT_GLB • 

• • 

• 

• Executes a '0TB 2B,C' I/Q instruction to load the global 

• registers on every I/Q card. The clear flag option is used 

• to enable the global register. Prior to calling this routine, 

• the I/O instruction must be broadcast over the I/O backplane 

• in order to work correctly. A command word of 12 decimal is 

• output over the backplane to the I/O cards. Then, the select 

• code is output. Each of the I/O cards will save the value of 

• the global register internally. The global regiater was 

• enabled by the clear flag option in the I/O opcode and its state 

• is recorded in a privileged CPU status register (prin(e)). 
« 

OUT_GLB: s7 :■ 12; *command word for lOP 

CK_IORQ: if not iorq goto CK_IORQ; »wait for iorq 

nop :- s7, wrio; 'send command to lOP 

nop :- b, wrio; 'send select code 

n :• OxOOOe; "update CPU status for CLF 

prin :• prin ior 1; 'bit 0«1 for GR enabled 

rtn; 
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Microprograms 
EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 



• Subroutine MAP SAV 



Copies the current user map into the port map reserved for the 
select code of the PIC card. This is usually done by the 
operating system prior to entry into a driver. Since our 

• microcoded driver is bypassing the operating system, the driver 

• has to perform the set up. The port map is used by the trap cell 

• microcode in order to access the user area. This driver was 

• written such that any user program could be executing when the 

• interrupt occurs. That is why the current user map must be saved. 



• 



• Dn entry: e • indicates first entry into the routine 

• e ' 1 indicates set up has already been done 



• 



• A read of the PIC card's select code has already 

• been started by the calling routine. 

• 

• On exit: The PIC card's select code is loaded into the 

• user reserved register "USR" , and the port 
map is set to the current user map. 



• 



• The user reserved privileged register (prinCS)) 

• is loaded with the port map number. This value 

• is used by the trap cell microcode to enable the 

• port map when accessing the user space. 



• 



MAP_SAV: if e then rtn, •Ist entry? 

usr :• t; 'save select code! 

n :■ 0x0006; •index to priv register 

prin :■ usr - 0x0008; vsave map set no. for PIC 

• 

• In an A600/A700/RTE-A. 1 computer environment there are 32 sets 

• of 32 maps used to access greater than 32K of memory. The 

• map set allocation is as follows: 

• Program allocation: 

• 

• map set #0 for the operating system 

• map set #3 for the current user map 

• 

• I/O allocation: 

• 

• map set #8 for select code 20B 

• map set #9 for select code 21B 

• 



• map set #31 for select code 47B 



• 



• 



A map address register is used to access the Individual 
map registers (0-1023). Therefore, the map address register 
(mpar) contains 0-31 to access the operating system's map and 
992-1023 for select code's 47B port map. 



• The lower S bits of the "memr" register contains the active 

» map set number (0-31) that is currently being used for memory 

• accesses (ie. the execute map). Since we are executing in 

• the user space, this number better be 3! 
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Microprograms 

EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 

* 

a6 :" memr and OxOOIf; •calc aource mpar 

a6 :- rl4(s6); •mpar-3*32 

s6 :- rlUaS); • 

3? :- rl4(prin); •calc dest mpar 

3? :- rl1(37); •mpar-map set»32 

ct : • 31 ; •loop count 

* 

• srinCO) • map address register (mpar) 
* 

n :» zero; •index for mpar 

• transfer 32 user map registers to port map for the PIC 
• 

TR_MAP: srin :- s6; •source mpar 

s6 :• s6 + one; • 

s5 :• map; •save map value 

srin :• s7; •destination mpar 

3? :• 3? + one; • 

map :" s5, "load map 

if not ctz goto TR_MAP; •done ? 

rtn; • 

• • * * • • • • • • • • «••••••• • • • • « • • • • * • • • • • • • •••••••••••••••••••••••••••••• 

• • 

• Subroutine IO_CMD • 

• • 
••••••••••••«••••••••••••••••••••••••••••••••••••••••••**•*•••••••• 

• 

• This routine is used to broadcast an I/O instruction over the 

• backplane. The I/O cards monitor the instructions on the 

• backplane and execute the I/O instructions when appropriate. 
• 

• Entry: The program counter points to the I/O instruction in 

• memory that is to be broadcast. In this example, the I/O 

• instructions are passed by the calling program as 

• parameters in the user space. Make sure that the "memr" 

• register is set to the correct map when accessing memory! 
• 

• The general purpose CPU flag is set if no I/O handshake 

• is required by the I/O instruction. The flag is clear if 

• the I/O instruction requires a handshake from the microcode 

• in order to execute the I/O instruction. All I/O 

• instructions with their lower 6 bits >17B require an I/O 

• handshake (iohs)! 
• 

• Note: Refer to the base set routines BCST and IOHS for 

• a more general purpose routine. 
• 

• 

IO_CMD: bfb, bbus/p; •broadcast the I/O instruction 

ct :■ t; •I/O opcode to ct and freeze! 

if f then rtn; •flag set for no handshake 

• 

• CAUTION: Me must wait a certain time period after the I/O 

• instruction has been broadcast over the backplane 

• before checking for the input/output request (iorq) 

• signal generated by the I/O cards. The current base 

• set waits two cycles after the freeze (ct :• t) 

• instruction before checking for the iorq signal. 



nap; ^timing 

if not iorq then rtn; •does IDP need our help 



9 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 



The CPU microcode must act aa a slave processor to the I/O 
processor chip CIOP) if the I/D card needs CPU resources in order 
to execute the I/O instruction (ie. access to the A register, 
etc.). The lOP asserts the iorq to signal that it needs the 
slave processor's help. The CPU microcode must read a control 
word from the lOP that tells the CPU what to do. The control 
word is defined as follows: 

Data bus bit 



8 7 6 5 4 



Nop X 

Load program enter X 1 

Load A register X 1 

Load B register X 1 1 

Clear register X 1 

Set register X 1 1 

Merge into A/B X 1 1 

Inc program enter X 1 1 1 

Undefined X 1 

Enable boot memory X 1 1 

Read A register X 1 1 

Read B register X 1 1 1 

Clear E register X 1 1 

Set E register X 1 1 1 

Read P register X 1 1 1 

Read and inc P X 1 1 1 1 



X-0 if last handshake 
X»1 if more handshakes are required 
(ie. continue looping) 



• 

IOHS_DO: rdio, 

s7 : - ct ; 
nop :- 0x0100 and t; 
if yz then goto IOHS_QT, 

ct :- t; 
call lOHS TB, ct74, 
ct :- t; 
« 

IORQ_WT: if iorq goto IDHS_DO; 
goto IORQ_WT; 

« 

IOHS_QT: goto IOHS_TB, ct74, 
ct :- s7; 



•read lOP cntl word CCM) 
•save instruction opcode 
•check continue bit 
•last one? 

•put CW into counter 
•index into table via CM 
•load opcode into counter 

•wait for handshake 
•try again 

•last time 

•load opcode into counter 



• The command table is indexed by the lOP control word bits 4-7. 

• The table must begin on an even 16 word boundry. Refer to the 

• base set's iohs tbl. 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "SEND" (Continued) 



lOHS TB: 

{00> 

{01} 

{02> 

{03} 

{04} 

{05} 

{06} 

{07} 

{10} 

{11} 

{12} 

{13} 

{14} 

{15} 

{16} 

{17} 



$Blign 16$ 

rtn; 

rdlo, goto IOHS_LP 

rdio, goto IOHS_LA 

rdio, goto IOHS_LB 

ato , rtn; 

c 1 o , rtn; 

rdio, goto IOHS_MI 

ip, rtn; 

rtn; 

goto IOHS_BT; 

nop 

nop 

cle , rtn; 

3 1 e , rtn; 

nop :• p, 

nop :■ p, 



a , wrio , rtn; 

b, wrlo, rtn; 



• nop 

•load p from lOP 
•load a from lOP 
•load b from lOP 

• set o 
•clear o 
•merge into a/b 
•increment p 
•write status to lOP 
•enable BOOT memory 



wrio, rtn; 
wrio, ip , rtn; 



•write 


a 


to 


lOP 




•write 


b 


to 


I OP 




•clear 


e 








• set e 










•write 


P 


to 


I DP 




•write 


P 


to 


lOP, 


inc p 



• Execution of individual commands 



rOHS_LP: 
IOHS_LA: 
IOHS_LB: 
lOHS ni: 



p : - t , rtn; 

a : ■ t , rtn; 

b ; ■ t , rtn; 

s6 :■ cab; 

cab : « a6 ior t , rtn; 



IOHS_BT: rtn; 



•load p from lOP 

•load a from IDP 

•load b from IDP 

•load current a/b 
•merge in lOP value 

•sorry Charlie 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "TRAP" 



MPARA.L; 

UG_TRAP: $origin 0x3100$ 

• DESCRIPTION: 



This microcode is entered directly from the trap cell upon an 
interrupt from the parallel interface card. The main program 
must write the instruction opcode into the trap cell associated 
with the PIC card's select code. The "TRAP" microcode is 
essentially the privileged portion of the microcoded driver. 
The TRAP microcode must save the current machine state, perform 
the necessary I/O to the PIC card, and restore the machine state 
upon exit . 



The Initiation of 
"SEND" microcode. 



the I/D on the PIC card was started by the 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "TRAP" (Continued) 



• CALLING SEQ: 



* prin{7) 

* 



• Subroutine3 located in the 

• that are U3ed by "TRAP". 



JSB 


.SEND 


DEF 


RTN 


OCT 


SCODE 


OCT 


CNTL 


OCT 


DATA 


0TB 


2B,C 


OTA 


31 B 


OTA 


30 B 


STC 


30B,C 


LIB 


2B 


DTB 


2B,C 


CLC 


30B,C 


0TB 


2B,C 



Select code of PIC card 

Data for R31 of PIC 

Data for R30 of PIC 

Output to Global Register 

Output to R31 of PIC 

Output to R30 of PIC 

Enable transfer and Interrupt 

Save Global Register 

Output to Global Register 

Disable PIC card 

Restore Global Register 

"SEND" microcode routine 



* 
EXTRNL: 



$define adrl/IO_CMD Ox30C7$ 
$define adrl/OUT GLB Ox30AF$ 
Idefine adrl/MP ENB Ox30AC$ 



•Execute I/O command 
•Output to global register 
•Enable memory protect 



• Environment ; 



The "TRAP" microcode is entered directly from the trap 
cell upon interrupt. The CPU microcode has already 
disabled memory protect and saved the previous 
mapping information in a CPU privileged register. 
The CPU microcode has also modified the "memr" 
register by setting the active map set to (ie. the 
operating system's map). Therefore, all memory 
references will refer to the lower 32k of memory 
unless memr is modified. 



•Registers ; 



prints) 



prin(7) 



Bits 0-5 contains select code of the PIC 

Bit 15 busyl available-0 

Register must be set by the 

microcode. 

Contains the 

with the PIC 

Register must be set by the 

microcode . 

Contains the 15 bit logical address of the 

'LIB 2B' I/D instruction in the user 

map of the program that called the 

"SEND" microcode. 



"SEND" 

map set number associated 
card's select code. 

"SEND" 







sO -- 


A register save 


value 






31 -- 


B register save 


value 






32 -- 


Program counter 


save value 






33 - 


Global register 


save value 






sS - 


Scratch reg 








36 -- 


Scratch reg 








s7 -- 


Scratch reg 




• Save 


the state of 


the machine 




DVR_CON 


sO 


■ a; 




•save a 




si 


- b; 




•save b 




s2 


■ p; 




•save p 




nop 


:• usr; 




•check busy bit 




if I 


lot y15 


then goto EXIT; 


•not busy, ignore 
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Microprograms 



EXAMPLE 3: PBIVILEGED DRIVER, MICROPROGRAM "TRAP" (Continued) 



user area where the I/O 

memr register needs to be modified 



In order to gain access to the 

instructions are located, the 

so that all memory references will be done in the previous user 

map that called the "SEND" microcode. The map set number was 

saved in prinC6) by the "SEND" microcode. 



n :■ 0x0006; 
memr :« prin, 
in: 



•memr save index 
•memr«pr in(6) 
•pc save index 



The program cntr is reset to point to the LIB instruction in the 
user map (this was also saved by the "SEND" ). 

p !• prin, •pc-prin(7) 

Save the current state of the global register 



elf; 
call ID CMD; 
s3 :- b, 

stf ; 
b :• usr and Ox003f; 



•set for iohs 
•do LIB 2B 
•save global 
•set for no iohs 
•b'PIC select code 



• If the global reigister is still set to the PIC, then just disable 

• the device and exit. 
• 

• Otherwise, reset the global register to the PIC's select code via 

• the 0TB 2B,C command 



nop :« b xor s3, 

ip; 
if yz then goto DIS_DEV; 
* 

• Reset Global 
* 

call ia_CHD; 
call OUT_GLB; 

* Disable the PIC card 



DIS DEV: 



elf, i p ; 
call IO_CMD; 



* Restore Meichine State 
• 

nop :« 53 xor b; 

if yz cjoto RST_MAP; 
RST OLE: b :• sS, 
stf, 

ip; 

call It] CMD; 
call OUT GLB; 
EXIT: 



•cmpr global to scode 
•point to DTB 2B,C 
•equal? 



•broadcast w/o iohs 
•do 0TB 2B,C 



•set for iohs 
♦do CLC 30B,C 



•global reset ? 

•if not skip it 

•reset global 

•no iohs 

•point to DTB 2B,C 

•broadcast w/o iohs 

•do 0TB 2B,C 



• The interrupted mapping information was saved in prin(d) by the 

• base set microcode upon interrupt. The base set maintains three 

• separate maps; an execute map, data1 map, and data2 map. The 

• execute map contains the map set number for the executing user 

• program (which is 3) or the map set number for the 0/S which is C 
* 

• Since this driver is privileged, the interrupted execution map 

• could be either the user or the system (ie. we can interrupt 

• either a user program or the 0/S). The data1 and data2 maps 

• could contain any one of the map set numbers (0-31). Refer to 

• the DMS instructions for details. 
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Microprograms 



EXAMPLE 3: PRIVILEGED DRIVER, MICROPROGRAM "TRAP" (Continued) 

* 

• Upon interrupt, the base set saves the current values of the 
« three maps and the state of memory protect (enb/dls) into a 

* privileged register (prin(d)} called IMAP (interrupted maps). 
» The format of this register is shown below: 

• 



15 
MP 



MP 

datal 

dBta2 

execute 



14 10 9 5 4 

data2 datal execute 

prin(d) 

• state of memory protect at time of interrupt 

MP-1 for enabled MP-0 for disabled 

value of datal map at time of interrupt 

value of date2 map at time of interrupt 

value of execute map at time of interrupt 



The base set maintains the CURRENT value of the execute, 
datal, and data2 maps in two registers CprinCf) and memr) . 
The format is as follows: 



a/b 



4 - 

datal 



13 12-8 
a/b data2 

prin(f ) 



a/b ■ 1 a/b addressability disabled 

a/b ■ a/b addressability enabled 

datal map set number for datal map 

data2 map set number for data2 map 



• memrCO-4) • Current execute map set number. 



RST_MAP: n :• OxOOOd; 
s5 : ■ prin; 
n : ■ ones ; 
s6 :- rrlCsB); 
s7 :- rrUsS); 
s7 :■ OxIfOO and s7; 
96 :- rl4<sG); 
s6 :■ swzuCs6); 
s6 : • s6 and OxOOIf ; 
prin :• s6 ior 0x2020; 
prin :• prin ior s7; 
memr :• s5 and OxOOIf; 
if not b15 goto DONE; 
call MP_ENB; 



DONE: 



P 
b 



92; 
s1; 
aO; 



fchp, rtn; 



•index to IMAP 

•save IMAP 

•reset data2/data1 

• 

•dBtB2 in upper byte 

• 

•datal in low byte 

•no a/b addressability 

•set unpacked data2/data1 

•reset exec map (s5/bbus) 

•enable MP if needed 

• 

♦restore pc 

•restore b 

•restore a 

•return to user/system 
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SUMMARY OF WORD TYPES 



APPENDIX 



Summary of Word Types vs. Field Contents 



WORD 
















TYPE 


FIELD1 


FIELD2 


FIELDS 


FIELD4 


FIELDS 


FIELD6 


FIELD7 


1 


0P1 


ABUS 


SPO 


SP2 


ALU 


BBUS 


STOR 


2 


0P2 


ABUS 


SPO 


CNDX 


ALU 


BBUS 


STOR 


3 


OPS 


ADRS 


SP1 


CNDX 


ALU 


BBUS 


STOR 


4 


OP4 


ADRS 


SP1 


SP2 


ALU 


BBUS 


STOR 


5 


OPS 


ADRL 






ALU 


BBUS 


STOR 


6 


OP6 


DAT 






ALU 


BBUS 


STOR 


1S 


0P1 


ABUS 


ALUS 


SP2 


SPEC 


BBUS 


STOR 


2S 


0P2 


ABUS 


ALUS 


CNDX 


SPEC 


BBUS 


STOR 


3S 


0P3 


ADRS 


ALUS 


CNDX 


SPEC 


BBUS 


STOR 


4S 


0P4 


ADRS 


ALUS 


SP2 


SPEC 


BBUS 


STOR 


5S 


OPS 


ADRL* 






SPEC* 


BBUS 


STOR 


*Go to microinstruction table for microorder long branch jump (lower four bits of destination address 


replaced by 


bits 3-0 of CT). 
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SUMMARY OF MICROORDERS 



APPENDIX 



B 



Summary of Microorders by Field 



FIELD 








CODE 


OP 


CNDX 


SPO 


SP1 


SP2 


ALUS 


ALU 


ABUS 


BBUS 


STOR 


00000 


IMM 


SF 


NOP* 


NOP* 


NOP* 


UMPY 


SPEC 


A 


A 


A 


00001 


IMM 


F 


LOG 


LDQ 


CMDW 


TMPY 


SBAC 


B 


B 


B 


00010 


IIVIM 


ALOV 


RR1 


RR1 


DCT 


SM2C 


SBBC 


X 


X 


X 


00011 


IMM 


CF 


RL1 


RL1 


CLF 


RMLC 


ADDC 


Y 


Y 


Y 


00100 


IMM 


YZ 


LR1 


LR1 


STF 


DNRM 


ADBC 


ACC 


ACC* 


ACC 


00101 


IMM 


Y15 


LL1 


LL1 


IP 


SNRM 


CMBC 


HPI** 


HPI** 


HPI** 


00110 


IMM 


B15 


AR1 


AR1 


LWF 


DIV 


ADAC 


HP2** 


HP2** 


HP2** 


00111 


IMM 


INTF 


AL1 


AL1 


LWE 


DIV1 


CMAC 


USR** 


USR** 


USR** 


01000 


JMPL 


10 RQ 


RDP 


RDP 


CMID 


SWAP 


ZERO* 


SO 


SO 


SO 


01001 


JMPL 


PON 


IN 


IN 


RDP 


SWZU 


CAND 


SI 


SI 


SI 


01010 


JSBL 


MPEN 


RDB 


RDB 


WRIO 


SWZY 


XNOR 


S2 


S2 


S2 


01011 


JSBL 





STE 


STE 


DN 


ZUY 


XOR 


S3 


S3 


S3 


01100 


JMP 


E 


CLE 


CLE 


FCHP 


ZLY 


AND 


S4 


S4 


S4 


01101 


JMP 


INTP 


FCIN 


FCIN 


RDIO 


SRG 


INOR 


S5 


S5 


S5 


01110 


JSB 


CTZ4 


ACF 


ACF 


CT30 


RL4 


NAND 


S6 


S6 


S6 


01111 


JSB 


CTZ 


IP 


IP 


CT74 


ASG 


lOR 


S7 


S7 


S7 


10000 


JMPF 




STOR 












GRIN 


GRIN 


10001 


JMPF 




— 












FA 


WRP 


10010 


JMPT 




— 












SRIN 


SRIN 


10011 


JMPT 




— 












P 


P 


10100 


JSBF 




— 












Q 


NOP* 


10101 


JSBF 




— 












T 


WRB 


10110 


JSBT 




— 












1ST 


1ST 


10111 


JSBT 




— 












N 


N 


11000 


JTAB 




IFCH 












PRIN 


PRIN 


11001 


— 




BFB 












MA 


CWRB 


11010 


RTN 




CK2 












MEMR 


MEMR 


11011 


NOP* 




ENOE 












CT 


CT 


11100 


RTNF 




STO 












SR 


LR 


11101 


SPOF 




CLO 












MAP 


MAP 


11110 


RTNT 




FCHB 












CAB 


CAB 


11111 


SPOT 




LDBR 












CXY 


CXY 


OP Field Divisions 


















OP1 =JTAB 


OP2=SP0T C 


)P3=JMPF 


OF 


=4=JMP 


OPS 


=JMPL 


0P6=I 


MM 


NOP 


SPOF 


JMPT 




JSB 




JSBL 






RTN 


RTNT 
RTNF 


JSBF 
JSBT 














* Default Microord( 


3r. 
















'•Reserved register 


for Hewlett-Packard (H 


=1 and HP: 


2) and user 


(USR). 
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Summary of Microorder Phrases 



BRANCHING PHRASES 


PHRASE 


RESULTING FIELDS 


GOTO adr 




0P4/JMPL 


ADRUadr 






GOTO adr 




0P5/JMP 


ADRS/adr 






LGOTO adr 




0P5/JMPL 


ADRUadr 






SGOTO adr 




0P4/JMP 


ADRS/adr 






CALL adr 




0P5/JSBL 


ADRUadr 






CALL adr 




0P4/JSB 


ADRS/adr 






LCALL adr 




OP5/JSBL 


ADRUadr 






SCALL adr 




0P4/JSB 


ADRS/adr 






GOTOTBL adr 




0P5/JMPL 


ADRUadr 


ALU/SPEC 




CALLTBL adr 




0P5/JSBL 


ADRUadr 


ALU/SPEC 




NOP 




0P1/N0P 








JTAB 




0P1/JTAB 








RTN 




0P1/RTN 








BASIC ARITHMETIC PHRASES 


PHRASE 


RESULTING FIELDS 


ator :- bbua 




ALU/adbc 


STOR/stor 


BBUS/bbus 




ator :■ 


• abua 




ALU/adac 


STOR/stor 




ABUS/abus 


ator :> 


■ NOT bbua 


ALU/cmbc 


STOR/stor 


BBUS/bbus 




ator :• 


> NOT abua 


ALU/cmac 


STOR/stor 




ABUS/abus 


ator :• 


■ ONES 




ALU/xnor 


STOR/stor 


BBUS/ACC 


ABUS/ACC 


ator :• 


■ ZEROS 


ALU/xor 


STOR/stor 


BBUS/ACC 


ABUS/ACC 


ator :« 


■ ZERO 




ALU/zero 


STOR/stor 






ator :• 


• NOT abua AND bbua 


ALU/cand 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :> 


■ bbua 


AND NOT abua 


ALU/cand 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :• 


■ abua 


- bbua 


ALU/sbbc 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• bbua 


- abua 


ALU/sbac 


STOR/stor 


BBUS/bbus 


ABUS/abus 


stor :■ 


• abua 


+ bbua 


ALU/addc 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


■ bbua 


* abua 


ALU/addc 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :> 


■ abua 


XNOR bbua 


ALU/xnor 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• bbua 


XNOR abua 


ALU/xnor 


STOR/stor 


BBUS/bbus 


ABUS/abus 


stor :■ 


• abua 


XOR bbua 


ALU/xor 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• bbua 


XOR abua 


ALU/xor 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• abua 


AND bbua 


ALU/and 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


■ bbua 


AND abua 


ALU/and 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• abua 


NAND bbua 


ALU/nand 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :> 


• bbua 


NAND abua 


ALU/nand 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :> 


• abua 


lOR bbua 


ALU/ior 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :> 


• bbua 


lOR abus 


ALU/ior 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :■ 


• abua 


INOR bbua 


ALU/inor 


STOR/stor 


BBUS/bbus 


ABUS/abus 


ator :- bbua 


INOR abua 


ALU/inor 


STOR/stor 


BBUS/bbus 


ABUS/abus 
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Summary of Microorder Phrases (Continued) 



ARITHMETIC PHRASES WITH SHIFT OR ROTATE MICROORDERS 


These ph 


rases specify the shift or rotate microorders to shift or rotate the output of the ALU. The shift or rotate 


microorders can be placed in either the SPO or SP1 fields which is 


indicated here by SP*. 


The resulting fields are the shift or rotate microorders shown and the resulting fields from the basic arithmetic 


phrase. 








PHRASE 


RESULTING FIELD 


stor :■ 


■ LL1 (right side of basic arithmetic phrase) 




SPVLL1 


ator :> 


■ LR1 (right side of basic arithmetic phrase) 




SPVLR1 


3tor :■ 


■ RL1 (right side of basic arithmetic phrase) 




SP7RL1 


stor :> 


• RR1 (right side of basic arithmetic phrase) 




SP*/RR1 


stor :■ 


■ AL1 (right side of basic arithmetic phrase) 




SP7AL1 


ator :■ 


■ AR1 (right side of basic arithmetic phrase) 




SPVAR1 


ARITHMETIC PHRASES WITH CARRY-IN MODIFYING MICROORDERS 


These ph 


rases use the FCIN or ACF microorders to modify the carry-In 


of the ALU. In 


the following phrases, FCIN 


or ACF will be placed in either the SPO or SP1 fields which is indicated here as SP*. 


PHRASE 


RESULTING FIELDS 


ator :■ 


. bbua * ONE 


ALU/adbc STOFi/stor 


BBUS/bbus 


SPVFCIN 


ator :■ 


• abua * ONE 


ALU/adac STOR/stor 




ABUS/abus SPVFCIN 


ator :■ 


■ - BBUS 


ALU/cmbc STOR/stor 


BBUS/bbus 


SP7FCIN 


ator :• 


■ NOT bbua + ONE 


ALU/cmbc STOR/stor 


BBUS/bbus 


SP7FCIN 


ator :■ 


■ - ABUS 


ALU/cmac STOR/stor 




ABUS/abus SP7FCIN 


ator :■ 


' NOT abua * ONE 


ALU/cmac STOR/stor 




ABUS/abus SP7FCIN 


ator :' 


• abua - bbua - ONE 


ALU/sbbc STOR/stor 


BBUS/bbus 


ABUS/abus SP7FCIN 


ator :■ 


• bbua - abua - ONE 


ALU/sbac STOR/stor 


BBUS/bbus 


ABUS/abus SP7FCIN 


ator :■ 


' abua * bbua + ONE 


ALU/addc STOR/stor 


BBUS/bbus 


ABUS/abus SP7FCIN 


ator :■ 


' bbua + abua + ONE 


ALU/addc STOR/stor 


BBUS/bbus 


ABUS/abus SP7FCIN 


ator :■ 


■ bbua ♦ CF 


ALU/adbc STOR/stor 


BBUS/bbus 


SP7ACF 


ator :■ 


■ abua + CF 


ALU/adac STOR/stor 




ABUS/abus SP7ACF 


ator :> 


■ NOT bbua + CF 


ALU/cmbc STOR/stor 


BBUS/bbus 


SP7ACF 


ator :■ 


■ NOT abua ♦ CF 


ALU/cmac STOR/stor 




ABUS/abus SP7ACF 


ator :■ 


■ abua - bbua - BR 


ALU/sbbc STOR/stor 


BBUS/bbus 


ABUS/abus SP7ACF 


ator :> 


■ bbua - abua - BR 


ALU/sbac STOR/stor 


BBUS/bbus 


ABUS/abus SP7ACF 


ator :■ 


' abua * bbua + CF 


ALU/addc STOR/stor 


BBUS/bbus 


ABUS/abus SP7ACF 


ator :■ 


' bbua + abua + CF 


ALU/addc STOR/stor 


BBUS/bbus 


ABUS/abus SP7ACF 


SPECIAL ARITHMETIC PHRASES 


PHRASE 


RESULTING FIELDS 


ator : 


• alua (bbua) 


ALU/SPEC STOR/stor 


BBUS/bbus 


ALUS/alus 


ator :■ 


' alua (bbua, abua) 


ALU/SPEC STOR/stor 


BBUS/bbus 


ABUS/abus ALUS/alus 
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Summary of Microorder Phrases (Continued) 



ARITHMETIC PHRASES WITH IMMEDIATE DATA* 


PHRASE 


RESULTING FIELDS 


stor :■ 


' data 


ALU/adac 


STOR/stor 




DAT/data 


0P6/IMM 


ator :• 


• NOT data 


ALU/cmac 


STOR/stor 




DAT/data 


0P6/IMM 


ator :• 


• NOT data AND bbua 


ALU/cand 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :> 


• bbua AND NOT data 


ALU/cand 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


• data - bbua 


ALU/sbbc 


STOR/stor 


BBUS/bbus 


DAT/data 


OP6/IMM 


ator :• 


■ bbua - data 


ALU/sbac 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :• 


■ data * bbua 


ALU/addc 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :> 


• bbua + data 


ALU/addc 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


■ data XNOR bbua 


ALU/xnor 


STOR/stor 


BBUS/bbus 


DAT/data 


OP6/IMM 


ator :• 


• bbua XNOR data 


ALU/xnor 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


' data XOR bbua 


ALU/xor 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :• 


• bbua XOR data 


ALU/xor 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator ;• 


> data AND bbua 


ALU/and 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


stor :■ 


• bbua AND data 


ALU/and 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


■ data NAND bbua 


ALU/nand 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


• bbua NAND data 


ALU/nand 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


> data lOR bbua 


ALU/ior 


STOR/stor 


BBUS/bbus 


DAT/data 


OP6/IMM 


ator :■ 


■ bbua lOR data 


ALU/ior 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :■ 


• data INOR bbua 


ALU/inor 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


ator :• bbua INOR data 


ALU/inor 


STOR/stor 


BBUS/bbus 


DAT/data 


0P6/IMM 


*Data can be immediate or a floating point control word. 


CONDITIONAL PHRASES 


PHRASE 


RESULTING FIELDS 


IF cndx GOTO adr 


0P3/JMPT 


CNDX/cndx 


ADRS/adr 






IF cndx CALL adr 


0P3/JSBT 


CNDX/cndx 


ADRS/adr 






IF cndx RTN 


OP2/RTNT 


CNDX/cndx 








IF cndx THEN RTN 


0P2/RTNT 


CNDX/cndx 








IF cndx apO 


OP2/SP0T 


CNDX/cndx 


SPO/spO 






IF cndx THEN apO 


OP2/SP0T 


CNDX/cndx 


SPO/spO 






IF NOT cndx GOTO adr 


0P3/JMPF 


CNDX/cndx 


ADRS/adr 






IF NOT cndx CALL adr 


OP3/JSBF 


CNDX/cndx 


ADRS/adr 






IF NOT cndx RTN 


0P2/RTNF 


CNDX/cndx 








IF NOT cndx THEN RTN 


OP2/RTNF 


CNDX/cndx 








IF NOT cndx apO 


OP2/SP0F 


CNDX/cndx 


SPO/spO 






IF NOT cndx THEN apO 


OP2/SP0F 


CNDX/cndx 


SPO/spO 






SPECIAL PHRASES 


PHRASE 


RESULTING FIELD 


apO 


SPO/spO 










ap1 


SP1/sp1 










ap2 


SP2/sp2 











C-3 



Appendix C 



Summary of Microorders Phrases (Continued) 



FIELD FORCING PHRASES 


PHRASE 


RESULTING FIELD 


0P1/op1 


OP1/op1 


DP2/op2 


OP2/op2 


0P3/op3 


OP3/op3 


OP4/op4 


OP4/op4 


OPS/opS 


OP5/op5 


DP6/op6 


OP6/op6 


SPO/apO 


SPO/spO 


SP1/ap1 


SP1/sp1 


SP2/sp2 


SP2/sp2 


CNDX/cndx 


CNDX/cndx 


ABUS/abua 


ABUS/abus 


BBUS/bbu9 


BBUS/bbus 


STOR/ator 


STOR/stor 


ALU/alu 


ALU/alu 


ALUS/alus 


ALUS/alus 


DAT/dat 


DAT/dat 


ADRL/adr 


ADRUadr 


ADRS/adr 


ADRS/adr 
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FLOATING-POINT MICROINSTRUCTIONS 



APPENDIX 



Summary of Floating Point Control- Word Fields 



FUNCTION 




CONTROL WORD FIELDS 












DESCRIPTION 




FUNCTION 


A-SOURCE B-SOURCE D-ADDR 


B-ADDR 


A-ADDR 


SPF Addition 




add.f2 




a bus b bus dO 


bO 


aO 


SPF Subtraction 




sab.f2 




a ace b ace d1 


b1 


a1 


DPF Addition 




add.f4 




a_rom d2 


b2 


a2 


DPP Subtraction 




add.f4 




d3 


b3 


a3 


0-63 right sliift 




shr.i4 










0-63 left stiift 




shl.i4 










Float SI to DPF 




ft.i1.f4 










Float Dl to SPF 




ft.i2.f2 










Float Dl to DPF 




ft.i2.f4 










Convert DPF to SPF 




cv.f4.f2 










Fix DPF to SI 




fx.f4.i1 










Fix DPF to Dl 




fx.f4.i2 










Dl Multiply 




mul.i2 










DL Multiply 




mul.l2 










SPF Multiply 




mul.f2 










DPF Multiply 




mul.f4 










Dl Divide 




div.i2 










DL Divide 




div.l2 










SPF Divide 




div.f2 










DPF Divide 




div.f4 










Clear Opcode (default) 




clear 










'Abbreviations used: 


SI 


= 


Single Integer, Dl = Double Integer, 








SPF 


= 


Single Precision Floating Point, 








DPF 


= 


Double Precision Floating Point, 








DL 


= 


Double 


Logical 







Summary of Floating-Point Microinstructions 







ALL OPERATIONS (GENERAL FORM) 




stor:=fp( 


function, 


*what operation to perform 






a-operand source, 


"source for the a-side operand 






b-operand source. 


*source for the b-side operand 






a-operand address 


•accumulator address for a-side operand 






b-operand address. 


•accumulator address for b-side operand 






d-result address); 


"accumulator address for result 
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PHRASE 



divsetup 

qbit3 

qbit2 



Summary of Floating-Point Divide Microinstructions 



DIVIDE OPERATIONS 



prepare for division sequence 
generate tliree bits of quotient 
generate two bits of quotient 



OPERATION 



div.i2 
div.l2 
div.f2 
div.f4 



Summary of Divide Operations vs. Sequence of Control Words 



SEQUENCE OF DIVIDE CONTROL WORDS 



1 divsetup, 11 qbit3, 1 qbit2 

1 divsetup, 11 qbit3, 1 qbit2 

1 divsetup, 9 qbitS 

1 divsetup, 19 qbitS 



Divide Microinstruction Phrases 



stor:=fp(divide operation); *divide operation to perform 

or 

stor:=fp(rom_addr/label); *address of ACR pointer 
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BASE SET LISTING 



APPENDIX 



E-1 



Appendix E 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 



*********************************************************************** 

* * 

* NAME: A700 PROCESSOR BASE SET * 

* POIR: SRK.TMH * 

* DATE: <8 20204. 1442> * 

* * 
*********************************************************************** 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
*********************************************************************** 

LL,6 

SL,6,'LIST,WRSA 
LI,*LIST 
LI.&JFPLA 

ST, ' C0NTR0L_AND_I0G , 6 

ST, 'MRG ,6 

ST, 'ASG ,6 

ST, 'SRG ,6 

ST.'EAG ,6 

ST, 'EIG ,6 

ST, 'FPSG ,6 

ST.'DMS ,6 

ST,'DIS ,6 

ST,'LIS ,6 

ST, 'VMA ,6 

ST, 'OSS ,6 

ST, 'USER ,6 

ST, 'SELF'reST ,6 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 



FFLA: 



*ROW 
* 

~0~ 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



82S100 SRJ: <820204.1442> 
PRODUCT TERM OUTPUT 

HHHHHHHH 
mill 
5432109876543210 76543210 



H-H 

HLLL-LHH~L 

HLLL-LHH-L 

HLLL-LHHL 

HLLL-LHH H 

HLLL-LHHHHH 

HL1,L-LHHHHH-H 

HU,L-LHHHHH~H~ 

HLLL-LHHHHH H- 

HLLL-LHHHHH H 

HLLLHLHL 

HLLLHLHLH- 



HLLLHLHL-H 

HLLLHLHL— H 

HLLLHLHL H 

HLLLHLHLL- LLLL 

HLLLHLHLL LLHL 

LLLL-H 

LLLL-HLLLLLHLL— 
LLLL-HLLLLL-LLH- 
LLLL-HLLLLL-LL-H 
LLLL-H-HLLLLL-LL 
LLLL-HH-LLLLL-LL 
LLLI/-H — LLLLLHLL 

LLLL-L 

LLLI^LLLLL 

LLLL-L H 

LLLL-L H 

LLLL-L L-LLL 



A.... 

.A... 
..A.. 

.A.A. 
..AA. 



.AA 

• AAA* • ■ • 
• AA* A* • • 

• AA* *A« • 

• AA* m aAv 

A 

A A. 

A... 

A • ■ AA* • * 

AAA 

AAA*A* • ■ 

AAA. .A.. 

AAA* * bA* 

AAAA..A. 

AAAA* A • • 

AAAAA. .. */ 



*\ 

* I 

* I 

* I 
* 

* 

* I 

* I 
*/ 
*\ 

* I 

.. */ 

.A *— 

.. *\ 

.. * I 

.. * I 

* I 
*/ 
*\ 

* I 

* I 

* I 
A */ 
. *— 
. * 

. *\ 
. * I 
. * I 

* I 

* I 

* I 



I memory reference group 

I 



1000 xOll xxxx xxxx group 
(except EIG) 



AA.A. . . < 

AA. . A. . < 

AA***A*, 
AA* • • mA, 



*\ 

* I 

* I 

* I 
*/ 



extended instruction group 



1000 1010 xxxx xxxx group 
(except fps) 

FP single 
FP double 

- default 
ASG - SSA 

- SZA 

- RSS 

\ CLA CMA CCA 
/ 

- INA 

- default 
SRG - first NOP 

- CLE 

- SL@ 

- second NOP 
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0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



HLLLLLLH-LLLLLLL .A A. *\ 

HLLLLLL-HLLLLLLL .A A* | DIV, MPY, DLD, DST, JLA, JLB 

HLLLHLL-HLLLLLLL .A... A. A* | 

HLLLHLLH-LLLLLLL .A. ..AA. */ 



HLLLLL-LLLLH 

HLLLLL-LLLHL 

HLLLLL-LLHLL 

HLLL-H 

HLLL-H LL 

HLLL-H-LLL 



• A> . 

• A« 



..A * — ASL and ASR 

.A. * — LSL and LSR 

• AA * — RRL and RRR 

. • . *\ 10 group 

..A * I 10 group (low select codes) 

•A. */ 10 group (hit) 



47 HLLLHLHLL HHLL A.AA. ... * — double integer 



MPARA source listing 

0000 MPARA; *control routines and I/O group Instructions <820204. 1442> 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



$origin 0x000$ *file = SCONTO <820204. 1442> 
********************************************************************* 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 

*820119 SRK - CLC now turns off TBG; PFW does a CLC 4 
*820120 SRK - CLC now enables PFW 

********************************************************************* 

* - Power-up routine and the beginning of the selftest * 

* - VCP boot routine 

* - JTAB loops for instruction decoding: 

- Normal JTAB loop 

- Diagnostic JTAB loop 

- Broadcasting JTAB loop 
Interrupt handlers: 

- Diversion Handlers: 

- A/B fetch 

- Time Base Generator Tick 

- Macro Interrupt Handlers 

- Parity Error 

- Un Implemented Instruction Trap 

- Memory Protect Violation 

- Slave Handler (Break to VCP) 

- Floating Point Overflow (Not supported) 

- Time Base Generator Flag 

- External Interrupts (of the 10 Master Variety) 

- Jam Handlers: 

- Jump to Nonexistent Micromemory 

- Microcode Timeout 

- I/O Group Instructions: 

- All HLT Instructions 

- I/O Group with Select code >=20B (Executed by lOM) 

- I/O Group with Select code <=20B (Executed by lOM and CPU)* 

- General routines for hardware manipulation * 
********************************************************************* 



*ist asynchronous clear/set codes 
$define dat/I_INT_CLR Ox000c$ *ist: 
$define dat/I_PE_CLR 0x0000$ 
$define dat/I_PE_SET 0x0001$ 
$define dat/I_MP_CLR 0x0002$ 
$define dat/I_MP_SET 0x0003$ 
$define dat/I_MT0_CLR 0x0006$ 
$define dat/I_TBGT_CL 0x0004$ 
$define dat/I_TBGT_SE 0x0005$ 
$define dat/PE CODE 0x0009$ 



*ist enable bits and backplane bits 

$define dat/I_PEE 0x0010$ 

$define dat/I_PFWE 0x0020$ 

$define dat/I_INTR 0x0100$ 

$define dat/l_FLTO 0x0200$ 

$define dat/I_TBG0FF 0x0400$ 

$define dat/I_PSODD 0x0800$ 

$define dat/I_MPD 0x1000$ 

$define dat/I SCHOD 0x2000$ 



clear intf condition 
clear parity interrupt 
set parity interrupt 
clear memory protect interrupt 
set memory protect interrupt 
clear mto jam indicator 
clear tbgtlck diversion 
set tbgtick diversion 
parity error interrupt code 



parity error enable 
power fail warning enable 
external interrupt mask 
floating point overflow bit 
time base generator on/off 
parity sense (0 is even) 
memory protect disable 
backplane schod line 
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0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0001 

0001 

0001 

0002 

0003 

0003 

0004 

0004 

0005 

0005 

0005 

0006 

0007 

OOCF 

OOCF 

OOCF 



$define dat/I_CRS 
$deflne dat/I_TBGF 
$define dat/I_RESET 



0x4000$ * backplane crs line 
0x8000$ * time base generator flag 
OxlCOO$ * ist reset value 



*memr map bits and diagnostic 
$define dat/MEMR_BOOT 0x0040$ 
$define dat/MEMR_AB 0x0020$ 
$deflne dat/MEMR_TDI 0x8000$ 
$deflne dat/MEMR_PFW 0x4000$ 
$deflne dat/MEMR_MLST 0x2000$ 
$deflne dat/MEMR_MT0 0x1000$ 
$deflne dat/MEMR_ABF 0x0800$ 
$deflne dat/MEMR_PE 0x0400$ 
$define dat/MEMR_SLAV 0x0200$ 



window 

* bootmemory select bit 

* ab addr disabling bit 

* tdi indicator 

* pfw Indicator 

* mlost indicator 

* mto Indicator 

* abfetch indicator 

* parity error indicator 

* slave indicator 



♦privileged register allocation 

$deflne dat/N_VMA_START 0$ 

$define dat/N_CIR 10$ 

$deflne dat/N_TBGT_C 11$ 

$define dat/N_MP_VI0LAT 12$ 
$deflne dat/N_LR 9$ 

$define dat/N_IMAP 13$ 

$define dat/N_ST 14$ 

$deflne dat/N WMAP 15$ 



*prln: start of VMA 

* central Interrupt register 

* missed TBG tick counter 

* MP violation address 

* lights register (upper byte) 

* packed IMAP 

* status register (ST) 

* unpacked WMAP (just DATA1,DATA2) 



♦special register specification 

$deflne dat/N_CIL 3$ *srin: central Interrupt latch 

$deflne dat/N_PEU 1$ * parity error latch 1 (low 16 bits) 

$deflne dat/N_PEL2 2$ * parity error latch 2 (high 6 bits) 

$define dat/N_MPAR 0$ * map address register 

♦status register definition (microcode status) 



$deflne dat/ST 
$define dat/sf 
$deflne dat/sf 
$define dat/sf 
$define dat/ST 
$define dat/Sl" 
$deflne dat/sf 
$deflne dat/sf 



GRDI 

■lV2 

■lV3 

'lV23 

LV23T 

■tbg_e 

RESET 
FWID 



0x1000$ 
0x0100$ 
0x0010$ 
0xFEEF$ 
OxFEEE$ 
0x0001$ 
0x1101$ 
0x0200$ 



*st: 



global register disabled 

level 2 enable 

level 3 enable 

level 2 and 3 enabled 

level 2 and 3 and TBG_E enabled 

time base generator interrupt enable 

Initial value GR di LV2 en TBG_E en 

firmware identification bit (see JNM) 



*trap cell definition 
$define dat/TRAP_PFW 
$define dat/TRAP_PE 
$deflne dat/TRAP_MP 
$define dat/TBAP_TBG 
$deflne dat/TRAP HIT 



04$ *trap: power fall warning trap location 

05$ * parity error trap location 

07$ * memory protect interrupt 

06$ * TBG trap location 

010$ * UIT trap location 



♦external addresses and links 

$deflne adrl/EELFTEST 0x007$ *link to SELFTEST in &SELFTEST module 

L0C_ZER0;; $origln 0$ 
{ 

Jam entrypolnt — handle the following conditions: 

PON - power coming up 

JNM -■ jump to non_existent micromemory 

MTO - microcode timeout 



} 



if pon goto not_power_up; 
power_iip: 

FAILTRAP: 

ist:"0xOCOO; 



*Is power on or coming up? 

*Power is coming up. 

* 

* turn of tbg now — prevent MTO 



if not pon goto failloop; * and also check the conditional 



if pon goto SELFTEST, 
acc:=acc xor ace; 
failloop: 

goto failloop; 

not power upi: 



branching mechanism. 

* Execute SELFTEST 

*Selftest will loop here on failure 
♦Should not get here, 

* put the brakes on if possible. 
*Xs conditional branching bad? 



if not pon goto FAILTRAP; * y: shut of tbg and enter trap 
goto int_mtojim; * n: must be JNM or MTO 

START UP: Sorigin OxOcF$ *llnk from &SELFTEST module 
{ 

Initialize the Phoenix and begin executing macroinstructions. 
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OOCF 

OOCF 

OODO 

OODO 

OODO 

OODO 

OODO 

OODO 

OODO 

OODO 

OODO 

OODO 

OODl 

OODl 

OODl 

OODl 

OODl 

OODl 

OODl 

OODl 

OODl 

00D2 

00D2 

00D3 

00D3 

00D4 

0OD5 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODD 

OODE 

OODE 

OODE 

OODE 

OODF 

OODF 

OODF 

OOEO 

OOEO 

OOEO 

OOEO 

OOEO 

OOEO 

OOEO 

OOEl 

00E2 

00E2 

00E2 

00E2 

00E3 

00E3 

00E3 

00E4 

00E5 

00E6 

0OE7 

00E8 

00E9 

00E9 

00E9 

OOEA 

OOEA 

OOEB 

OOEF 

OOEF 

OOEF 



call BOOT; 



♦Prepare to enter VCP. 



INST_RESTART: 

PROCESS_DISPATCH: $origin OxODO$ 

{ 

Fetch the first instruction of the instruction stream. 
Do not move this location. (Link from many routines.) 



} 



fchp, 

acc:=ones, 
goto vector; 



*Fetch the first instruction 

* (acc«ones is used by many routines) 

* 



♦prepare to null VMA register 

*first fetch interrupted? 

*look for diagnostic looping 

♦should we use the diagnostic JTAB loop? 

♦set the VMA register to ones 



vector: 

1 

Execute the process's instruction stream until an 

interrupt or exception condition comes true. 

Decide on which Jtab to use. 

These locations must not be moved for WCS switching to work. 

} 

n:=N_VMA_START; 

If Intf goto interrupt, 

nop:=rl4(sr); 
if not yl5 goto jtab, 

prln:=ones; 
goto jtab_diag; 

jtab: $origln OxODD$ 

{ 

Normal jtab location. 

Loop until interrupt. 

Do not move this location 
} 

jtab, 

elf, 

iP, 

cwrb:-b, bbus/t; 



if not intf goto jtab, 
ace: "ones; 
interrupt: 

goto int_vector, 
ct:=lst; 



for mind-swaps to occur without UI. 



♦Subroutine call to macrolnstruction 

♦ emulation routine, 
put the flag Into known state 
Inc P to address after opcode. 
Force orders that are required for 

the MRG decode to begin memory 
references In this cycle. 
♦Loop until interrupt causes 

♦ a fetching to be ignored. 
♦INTERRUPT: 

♦ branch to Interrupt handler 

♦ load priority code into ist 



jtab_diag: $origin OxOEO$ 
{ 

Jtab location with diagnostic window 

Loop until interrupt. 

} 

nop:=t; 

nop:"fa; 

jtab, 

elf, 

ip. 

cwrb:=b, bbus/t; 



nop : =a ; 

nop : "b ; 

nop:"ist; 

nop : =iliemr ; 

n:=»N_ST; 

nop:=prin; 

if not Intf goto 

jtab_dlag, 

aee:°ones; 
goto int_vector, 

ct:-lst; 

int_vector: $origln OxOOEF$ 
{ 

BRANCH TO INTERRUPT HANDLER 



♦viewing of instruction on YBUS. 

♦viewing of fetch address. 

♦Subroutine call to macrolnstruction routine 

♦ put flag into known state 

♦ Inc P to address after opcode. 

♦ Force orders that are required for 

♦ the MRC decode to begin memory 

♦ references in this cycle. 
♦A reg 
♦B reg 
♦ist reg 
♦memr reg 
* 

♦microcode status register 

♦Loop until an Interrupt condition 

♦ caused the fetch to be ignored. 

♦ Set ace to -1 for decrementing. 
♦INTERRUPT out of JTAB loop 
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OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOEF 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFO 
OOFl 
OOFl 
O0F2 
00F2 
00F3 
00F4 
00F5 
OOF 6 
00F7 
OOFS 
00F9 
OOFA 
OOFB 
OOFC 
OOFD 
OOFE 
OOFF 
OOFF 
0100 
0100 
0100 
0101 
008A 
008A 
008A 
008A 
008A 
008A 
008A 
008A 
008A 
008A 
008 A 
008A 
008A 
008A 
008B 
008C 
008D 
008D 
008E 
008F 
008F 
008F 
008F 
008F 
008F 
0090 
0091 
0091 
0092 
0093 
0093 
0094 
0094 
0094 
0094 
0094 



Remember : 

DW might be enabled here 

ACC Is assumed to hold "ones" for many routines 

Interrupt holdoff may be enabled in certain cases. 



*do table jump into interrupt table 
*clear INT flip-flop 



goto iiit_table, ct30, 
ist:-ist; 

int_table: $origin OxOOFO$ 
{ 

Branch to the interrupt or diversion that caused 
the fetch to be ignored. 

Locations 6~F are entered because of INTF handling. 
UIT, MTO, JNM just branch through here for 
1610 viewing. 
} 
{00} UIT: 

goto INT_UIT, p:=fa; 
{01} JNM: 

goto INT_UIT, p:=-fa; 
{02} MTO: 

goto INT_UIT, p:=fa; 



*Unimplemented instruction trap. 
*Jump to non-existent micromemory 
*Microcode timeout 



{03} PRIV_TRAP: goto int_priv;*Privileged instruction interrupt 



{04} goto INTJUIT, p:-fa; 

{05} goto INT'jJIT, p:=fa; 

{06} goto INT|_UIT, p:=fa; 

{07} ct:=t, goto VECTOR; 

{10} goto tbg_tick; 

{11} goto int_pe; 

{12} goto int mp, p:=fa; 

{13} goto int__slav; 

{14} goto int pfw; 

{15} goto int__flv; 

{16} goto int__tbgf; 

{17} goto int ext, 
p:=lH-acc; 

JFPLA_UIT: $origin 0x100$ 
goto UIT, nop:=ct; 



♦hardware failure 

♦hardware failure 

♦hardware failure 

*ab fetch diversion 

♦time base generator tick diversion 

♦parity error macrointerrupt 

♦memory protect macrointerrupt 

♦slave macrointerrupt 

♦power fall warning macrointerrupt 

♦floating point overflow macrointerrupt 

♦time base generator macrointerrupt 

♦external (I/O) macrointerrupt 

♦decrement p (will be ip'd at JTAB) 

♦JTABLE entrypoint if no fpla terms match 



ab_fetch: $orlgin 0x008a$ 
{ 

The fetch that occurred was from the a or b registers. 

Process the a or b fetch, and branch to the appropriate 

vector point. This is not a macrointerrupt. 

Was handled in INT TABLE. 
} 

tbg_tick: 

{ 

Process a time base generator tick. 

This is not a macrointerrupt. 
} 

sl:-ist and OxfffO; ♦ 

ist:=I_TBGT_CLR ior si; 

n : =N_TBG T_COUNTER; 

call SET_TBi3_INT, 
prin:=prin-acc; 

goto PROCESS_DISPATCH; 

int_pe ; 
{ 

Parity error interrupt. 



♦Clear TBGtick 

* 

♦Enable TBG interrupt 
♦Increment the TBG tick counter 
♦Redispatch the process. 



} 



sl:=ist and OxffeO; 
ist:=sl ior I_MP_CLR; 

s3:=TEAP_PE; 
ist:=sl ior I_PE_CLR; 
goto IRAP_CELL__FETCH, 
p:=p+acc; 



♦Null a lower priority MP interrupt 

♦ and shut off PE int 

♦save the trap cell address 

♦Null the PE interrupt and shut off PE int 

♦do trap cell fetch 

♦decrement p (will be ip'd at vector) 
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int_priv: 
{ 

Privileged instruction interrupt. 

(Just like memory protect.) 
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0094 

0094 

0095 

0096 

0097 

0097 

0097 

0097 

0097 

0097 

0098 

0099 

009A 

009B 

009B 

009C 

009C 

009C 

009C 

009C 

009C 

009C 

009C 

009C 

009C 

009D 

009E 

009F 

00 9F 

009F 

009F 

009F 

009F 

OOAO 

OOAl 

OOAl 

00A2 

00A2 

00A2 

00A2 

00A2 

00A2 

00A3 

00A4 

00A4 

00A5 

00A5 

00A5 

00A5 

00A5 

00A5 

00A6 

00A7 

00A8 

00A8 

O0A9 

00A9 

OOAA 

OOAA 

OOAA 

OOAA 

OOAA 

OOAA 

OOAB 

OOAC 

OOAD 

OOAE 

OOAF 

OOBO 

OOBl 

00B2 

00B3 

0OB4 

00B5 

00B5 



sl:»ist and OxfffO; 
ist:-sl lor I_MP_SET; 
goto PROCESS_DISPATCH; 

lnt_mp : 
{ 

Memory protect interrupt. 
} 

s3:=TRAP_MP; 

sl:=ist and OxfffO; 

ist:=I_MP_CLR ior si; 

n :=N_MP_VIOLATION; 

goto TEIAP_CELL_FETCH, 
prin:=fa; 



Int slave: 



*set the memory protect Interrupt 
*and refetch 



*save trap cell addr 
* 

*clear Interrupt 

*save violation address 

♦perform trap cell fetch 

*set IVR to fetch address 

*p is set to fetch address, which will 

* be Incremented in the jtab line. 

* the trap cell JSB will always write 

* FA+1 into the return address NOP. 



{ 



Process the slave condition - goto virtual control panel mode 



call PULSE_SCHOD; 
call lOHS, bbus/t; 
goto PROCESS DISPATCH; 



*Assert and release SCHOD. 
♦Perform the lOHS. 
* VCP process. 



int_pfw: 
{ 

Process the power fail warning interrupt. 
} 



s3:=TRAP_PFW; 
call CLR_LV2; 
goto TRAP_CELL_FETCH, 
p:=p+acc; 



*save trap cell address 

♦implicit CLC 4 

*do trap cell fetch 

♦decrement p (will be ip'd at JTAB) 



int_flv: 
{ 

Process the floating point overflow interrupt. 
} 

s3:=TRAP_UIT; ♦save trap cell address 

lst:=not I_FLTO and 1st; ♦ 

goto TRAP_CELL_FETCH, ♦do trap cell fetch 

p:=pfacc; ♦decrement p (will be ip'd at jtab) 

lnt_tbgf : 
{ 

Process the time base generator flag interrupt. 
} 



lst:=ist and not I_TBGF; 

s3:-rRAP_TBG; 

n : =N_TBG T_COUNTER; 

call SET_rBG_INT, 

prin:»prln+acc; 
goto TRAP_CELL_FETCH, 

p:=fH-acc; 



♦clear the TBG flag 
♦save trap cell address 

* 

♦enable tbg int only if qualifiers are true 

♦decrement TBGT counter 

♦do trap cell fetch 

♦decrement P (will be ip'd at JTAB) 



int_ext : 
{ 

Process an external interrupt from an io card 
} 

call WMAP_PACK, n:=ones; 

ist:=ist ior I_MPD; 

prin:= memr ior 0x2020; 

memr:=OxffcO and memr; 

ifch, acc:=ones; 



♦sO - current WMAP 

♦turn off memory protect 

♦new DATAl = old EXECUTE 

♦new EXECUTE = zero 

♦Do the interrupt fetch (no a b addr! ) 



n:-N_IMAP; 

prln:=sO; 

n:=N_CIL; 

ct:=t, elf; 

s0:-0x003f and srin; 

n:=N_CIR; 

prin:=s0, 

goto VECTOR; 



♦load IMAP 
* 

♦Load trap cell into instruction register 

♦Store Central Interrupt Latch 

* 

♦into Central Interrupt Register 
♦and execute trap cell 
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00B6 

00B6 

00B6 

00B6 

00B6 

O0B6 

00B6 

00B7 

00B7 

00B8 

0OB8 

00B9 

00B9 

OOBA 

OOBA 

OOBA 

COBB 

OOBC 

OOBD 

OOBE 

OOBF 

OOBF 

OOCO 

OOCl 

OOCl 

00C2 

00C3 

00C3 

00C4 

00C4 

OOCA 

00C4 

00C4 

00C4 

00C4 

00C5 

00C5 

00C6 

00C7 

00C8 

00C9 

0OC9 

OOCA 

OOCA 

OOCB 

OOCC 

OOCC 

OOCD 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

OOCE 

0120 

0120 

0121 

0121 

0122 

0122 

0123 

0123 

0124 

04C0 

04CO 

04C0 

04C1 

04C1 

04C2 



int_ult: 

{ 

Process the unlmplemented instruction Interrupt 

} 

nop:=meiiir and MEMR_PE; *If uit was caused by a PE on the fetch, 

if yz goto uit_not_pe, * then PE interrupt has priority, 

ace: -ones; * 

ult_ls_pe : 

goto PROCESS__DISPATCH; 
uit_not_pe: 

s3: = TRAJ?_UIT; 



mAP_CELL_FETCH: 

call wiIp_Pk(X, n:=one8; 

prln;-mem'r ior 0x2020; 

meiiir:=memr and OxFFCO; 

ist:-ist ior I MPD; 

n:=N_CIR, bbusTniemr; 

If not bl5 goto tdireset, 
rdb, prin:==83; 

cmld; 
tdireset: 

n:=N_IMAP; 

prln:»sO, elf; 

ct:=t, 

goto VECTOR; 



*is PE pending? 

* y: let it happen 

* n: do a HIT 
* 

*Perform trap cell fetch for low SC's 

*sO = current WMAP 

*new DATAl - old EXECUTE 

*new EXECUTE = zero 

♦disable memory protect 

*load CIR with code 

*(is tdi set?) 

*read trap cell contents 

*(make sure TDI is reset) 

*load MAP with old WMAP 

* 

*load trap cell into instruction register 

*and execute trap cell 



int_mtoJnni: 

{ 

Process the microcode timeout and jump to nonexistent mlcromemory 
interrupts. 



} 



nop:-[nemr and MEMR_MTO; 
if yz goto jnni_assume, 

ace: -ones; 
8l:"OxfffO and ist; 
ist:=I_MTO_CLR ior si; 
n : -N_TBGT_COUMTER; 
goto MTO, 

prin:-prin-aec; 
jnm_assune: 

nop:-prin and ST_FWID; 
if yz goto JNM; 
prln:"prin and 

not ST_FWID; 
a:-oneB, fchp, rtn; 



*MTO indicates that 

*the microcode time out occurred. 

* (ace must = ones for TRAP_CELL) 
*MTO: clear out indicator 

* and process as a UIT 
* 

* make up for the lost tbg tick 
* 

*JNM: process as a UIT 

* (If firmware Identification in progress 

* then do not UIT!) 

*f irmware identification in progress! ! 

* clear bit 

* a:=ones, and return 



********************************************************************** 

* Input/Output Group Macrolnstructions 

* organization: 
-the jump table microcode for 

- 10 Group HLT instructions (all select codes) 

- 10 Group instructions with select code >= 20B 

- 10 Group instructions with select code <= 20B 
-a decode table for select code <." 20B 
-the microcode that executes the low select code instructions 

********************************************************************** 



IOG_HI: $orlgin 0x120$ 

goto IOG_HIGH; 
IOG_LO: $orlgin 0x121$ 

gototbl SC_TABLE, stor/n; 
HLT_HI: $origin 0x122$ 

goto HI.T; 
HLTJLO: $origin 0x123$ 

goto HLT; 

$origln 0x04c0$ 

SC_TABLE: 

{0} goto SC_00, n:"acc+acc; 

{1} goto SCJDl, ct:-srg(ct), 

cml d ; 
{2} goto SC_02, n:-acc+acc; 



*high select code Instructions <> HLT 

* (SC >- 20B) 

*low select code instructions <> HLT 

* (SC < 20B) 

*hlgh select code HLT 

* (SC >- 20B) 
*low select HLT 

* (SC < 20B) 



*THE LOW SELECT CODES ARE DEDICATED TO: 
♦interrupt system flag and interrupt mask 
*0 register instructions 
*and lights and switches 
♦global register 
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04C3 

04C4 

04C5 

04C6 

04C7 

04C8 

04C9 

04CA 

04CB 

04CC 

04CD 

04CE 

04CF 

04D0 

04D0 

04D0 

04D0 

04D0 

04D0 

04D1 

04D2 

04D3 

04D4 

04D5 

04D6 

04D7 

04D8 

04D8 

04D9 

04D9 

04DA 

04DB 

04DB 

04DC 

04DC 

04DD 

04DE 

04DF 

04DF 

04E0 

04E0 

04E0 

04E0 

04EO 

04E0 

04E1 

04E1 

04E2 

04E3 

04E3 

04E4 

04E5 

04E5 

04E6 

04E7 

04E8 

04E8 

04E8 

04E8 

04E9 

04EA 

04GB 

04EB 

04EC 

04EC 

04ED 

04EE 

04GE 

04EF 

04F0 

04F0 

04F1 

04F2 

04F3 

04F3 



{3} goto 
{4} goto 
{5} goto 
{6} goto 
{7} goto 
{8} goto 
{9} goto 
{a} goto 
{b} goto 
{c} goto 
{d} goto 
{e} goto 
{f} goto 



SC_03, n: 
SC_04, n: 
SC_05, n; 
SC_06, n; 
SC_07, ni 
SC_10, n; 
SC_11, n; 
SC_12, n; 
SC_13, n; 
SC_14, n; 
SC 15, n; 
SC~16, n: 
SCJ.7, n 



=acc+acc; 
=acc+acc; 
=acc+acc ; 
-acc+acc ; 
=acc+acc; 
=acc+acc; 
=acc+acc; 
=acc+acc; 
-acc+acc; 
=acc+acc; 
-acc+acc; 
=acc+acc; 
=acc+acc; 



♦virtual control panel 

*power fall 

*parlty error 

*tlme base generator 

*memory protect 

* 

* 

* 



************************* A**A******************************************** 

* Select Code 00 Decoding and Execution * 

************************************************************************* 

sc_00_tbl: $allgn 16$ 



} goto SET_LV3; 

} goto lOHS, bbus/t; 

} rtn; 

} goto lOHS, bbus/t; 

} goto sf@00,nop:-sO; 



{stf_00: 
{inl@_00: 
{clf_00: 
{li@_00: 
{sf@_00: 
{ot@_00: 
{sf@_00: 
{@lc_0O: 
clcOO: 

goto clc_00; 
sc_00: 

call BCST; 

cmid, ct:=srg(ct); 

if mpen goto prtv_00, 
sO:=lll(ct); 

call sc_00_tbl, ct74, 
nop:=rl4(ct); 

if sf call clf_00; 

fchp, rtn; 
priv_00: 

goto PRIV_TRAP; 



*STF - set Interrupt System Flag 

*MI@ - merge A w/ Interrupt Mask Register 

*C1,F - clr Interrupt System Flag 

*LI@ - load A w/ Interrupt Mask Register 

*SF? - skip if ISF 

} goto ot@00, bbus/t; *0I@ - output A to Interrupt Mask Register 

} goto sf@00,nop:=s0; *SF? - skip If ISF 

} if not yl5 then rtn;*STC - NOP 

*CLC - 10 system reset 
* 

*DEC0DE SCJDO: 

* broadcast this instruction 

set tdi, transform instruction for decoding 

check memory protect 

set sf on the ' ,C' bit 

execute instruction 

set yl5 on the STC vs CLC bit 

If ' ,C' then execute CLF_00 

that's all 



* 

* 
* 
* 
* 
* 
* 
* 
*link to PRIV TRAP 



************************************************************************* 

and Execution * 

************************************************ 



* Select Code 01 Decoding 
************************* 

sc_01_tbl: $align 16$ 
{stf_01:} rtn, sto; 
{mi@_01:} goto ml@01, 

sO:"cab; 
{clf_01:} rtn, clo; 
{li@_01:} goto li@01, 

s0:-zero; 
{sf@_01:} goto sf@01,nop: = 
{ot@_01:} goto ot@01, 

s0:-zuy(cab); 
{sf@_01:} goto sf@01,nop:' 
{@lc_01:} rtn; 

SC_01: 

call sc_01_tbl, ct74, 
sO:-lll(ct); 

if sf then clo; 

fchp, rtn; 
sf@01: 

If yl5 goto sfsOl; 
sfcOl: 

if o then rtn; 

ip, rtn; 
sfsOl: 

if not o then rtn; 

ip, rtn; 
ot@01: 

n:="N_LR; 

sO:=prin lor sO; 

lr:=not sO, rtn; 
ml@01: 
liOOl: 



*STO 
*MI@ 

* 

*CLO 
*LI@ 

* 

sO; *SF? 
*0It8 
* 

sO; *SF? 

*STC,CLC 

* 

♦DECODE SC_01: 

* call the select code table 

* set sf on the '.C bit of instruction 

* if ',C' then clear 
that's all 



- set register 

- merge from switch register 

- clear register 

- Ibad from switch register 

- skip if o set or clear 

- store into LED register 
zero out microcode side of switches 

- skip if o set or clear 
NOP 



skip if clear 



* 
* 
* 

*SOC 

* 
* 

*SOS - skip if set 

* 

* 

*0T@ - output to lights register 

* (The upper half of the lights register 
* 

* 

* The value is kept in N_LR In prln. ) 
*load from switch register 
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04F3 

04F4 

04F5 

04F5 

04F6 

04F7 

04F7 

04F8 

04F9 

04FA 

04FA 

04FB 

04FC 

04FD 

04FE 

04FF 

04FF 

04FF 

04FF 

0500 

0500 

0500 

0500 

0500 

0500 

0500 

0500 

0501 

0502 

503 

0504 

0505 

0505 

0506 

0507 

0508 

0508 

0508 

0509 

050A 

050A 

050B 

050B 

050C 

050D 

050E 

050E 

050E 

050E 

050E 

050F 

050F 

050F 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

0510 

510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0518 

0519 



sl:»sr; 

ct:=ct ior OxOOff; 
li@lp: 

sl:=lll(sl), Iwf; 
s2:=lrl(s2), Iwf; 
if not ct:z4 goto liSlp, 

s2:=zly(s2); 
nop:=lll(ct); 
s2:=s2 and not OxCOOO; 
if not bl5 then rtn, 

cab:="sO ior s2; 
nop:=ME;MR_MLST and memr; 
if not yz then rtn; 
cab:=cab ior 0x4000; 
rtn; 



clf_00: 

goto CI,R_LV3; 



* (must be compatible with L-series) 

*use opcode as count 
* 

*reverse switches! (L-series funny) 

* low sl-s8 go in bits 15-8 

* do 16 times 

* zero out lower switches 
*restore SF to ,C request 
*klll switches 14,15 

*if switch 15 was zero 

* that's all (do MI@ and LI@) 
*and if memory is not lost 

*then set bit 14 of CAB 

*N0TE: did not do TBG_E of L-series 

* (only used for diagnostic purposes) 

♦execute the ",C" function and CLF function 

* for SCOO 



************************************************************************* 

* Select 0:>de 02 Decoding and Execution * 

************************************************************************* 



$align 64$ 

sc_02_tbl: $align 16$ 
{stf_02:} goto stf02; 
{mi@_02:} goto lOHS, bbus/t; 
{clf_02:} rtn; 

{li@_02:} goto lOHS, bbus/t; 
{sf@_02:i goto sf302,nop:=s0; 
{ot@_02:} goto fakeiohs, 

bbus/t; 
{sf@_02:)f goto sf@02,nop:=s0; 
{@lc_02:} rtn; 

SC_02: 

call BCST; 

cmld, ct:"srg(ct); 

if mpen goto priv_02, 
s0:=lll(ct); 

call sc_02_tbl, ct74, 
nop:==rl4(ct) ; 

if sf call clf_02; 

fchp, rtn; 
priv_02: 
priv_04: 
priv_05: 
priv_06: 

goto p:riv_tijap; 

clf_02: 

goto clf02; 



*STF - disable global register state 

*MI@ - merge @ w/ global register 

*CLF - enable global register state 

*LI@ - load @ w/ global register 

*SF? - skip if GR 

*0T@ - output @ to global register 

* 

*SF? - skip if GR 

*STC,CLC - NOP 

*DEC0DE SC_02: 

* broadcast for 10 master 

set TDI, transform opcode for decode table 

kill 'em if memory protect is on 

save ' ,C' state in SF 

call decode table 

set yl5 to SFC vs SFS opcode 

if ',C' then CLF_02 

that's all 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*link to PRIV TRAP 



♦execute the ",C" function (and CLF) 

* 



************************************************************************* 

* Select Code 03 Decoding and Execution * 

* (all instructions in this select code are NOPs that * 

* are not broadcast.) * 
************************************************************************* 

************************************************************************* 

* Select Code 04 Decoding and Execution * 
************************************************************************* 

sc_04_tbl: $align 16$ 

{stf_04:} rtn; *STF - NOP 

{mi@_04:} goto mi@04,sl:=cab; *MI@ - merge A w/ Central Interrupt Register 

{clf_04:} rtn; *CLF - NOP 

Ul@_04:} goto li@04,sl:=zero;*LI@ - load A w/ Central Interrupt Register 

{sf@_04:} goto sf@04,nop:-s0; *SF? - skip if IIF 

{ot@ 04:} goto ot@04; *0I@ - output A to Central Interrupt Register 

{sf@JD4:) goto sf@04,nop:=s0; *SF? - skip if IIF 

{@lc_04:} if yl5 goto clc_04; * 

stc 04: *STC - clear Interrupt Inhibit Flag 

g'oto SE'IM^V2; * set level 2 interrupt enable 

clc 04: *CLC - set Interrupt Inhibit Flag 
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0519 
051A 
051A 
051B 
051B 
051C 
051C 
051D 
051E 
051E 
051E 
051F 
0520 
0520 
0520 
0520 
0520 
0520 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0528 
0529 
052A 
052A 
052B 
052C 
052C 
052D 
052D 
052E 
052E 
052F 
0530 
0530 
0530 
0530 
0530 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0538 
0539 
053A 
053A 
053B 
053B 
053C 
053C 
053D 
053D 
053E 
053F 
0540 
0540 
0540 
0540 
0540 
0540 
0541 
0542 
0543 
0544 



goto CLR_LV2; 
sc_04 ; 

cmld, ct:=srg(ct); 
If mpen goto prlv_04, 

s0:=lll(ct); 
call sc_04_tbl, ct74, 

nop:=rl4(ct) ; 
fchp, rtn; 

odd_ps: 

lst:-=lst lor I_PS0DD; 
rtn: 



* clr level 2 interrupt enable 
*DEC0DE SC_04: 

set TDI, transform Instruction 

flog him if memory protect is enabled 

set SF if ',C' is set 

decode instruction 

set Y15 on STC vs CLC bit 

that's all folks 



♦continuation of CLF05 
* 



************************************************************************* 

* Select Code 05 Decoding and Execution * 

************************************************************************* 

sc_05_tbl: $align 16$ 

{stf_05:} ist:=ist and not *STF - set parity sense to even (0) 

I_PS0DD; * 

{mi@_05:} rtn; *MI@ - merge A w/ parity violation address 

clf_05: goto 0DD_PS; *CLF - set parity sense to odd (1) 

{li@_05:} goto li@05; *LI@ - load A w/ parity violation address 

{sf@_05:} goto sf@05,nop:=s0; *SF? - skip if PS 

{ot@_05:} rtn; *0TS - output A to parity violation address 

{sf@_05:} goto sf@05,nop:=s0; *SF? - skip If PS 
{@lc_05:} if yl5 goto clc05; 



=ist lor I PEE; 



stc05 

ist: 

rtn; 
clc05: 

lst:»ist and not I_PEE; 

rtn; 
SC_05: 

cmld, ct:=srg(ct); 

if mpen goto priv_05, 
80:=lll(ct); 

call sc_05_tbl, ct74, 
nop:»rl4(ct); 

fchp, rtn; 



*STC - enable parity interrupts 



* 
*CLC 



disable parity interrupts 



*DECODE SC_05: 

* set TDI, transform Instruction 

zmag him if memory protect is enabled 

set SF on ',C' bit 

decode instruction 

set Y15 on STC vs CLC bit 

that's all 



************************************************************************* 

* Select Code 06 Decoding and Execution * 
***************************************************4,********************* 
sc_06_tbl: $align 16$ 

{stf_06:} goto stf06; *STF - set Time Base Generator Flag 
{ml@_06:} rtn; *MI@ - NOP 

clf_06: goto clf06; *CLF - clr Time Base Generator Flag 
{11@_06:} rtn; *LI@ - NOP 

{sf@_06:} goto sfe06,nop:-s0; *SF? - skip if TBGF 
{ot@_06:} rtn; 

{sf@_06:} goto sf@06,nop:=sO; 
{@lc_06:} if yl5 goto clc_06; 
stc_06: 

lst:=ist and not I_TBGOFF; 

rtn; 
clc_06: 

goto OF_TBG; 
sc_06: 

cmld, ct:»srg(ct); 

if mpen goto priy_06, 
sO:-lll(ct); 

call sc_06_tbl, ct74, 
nop:=rl4(ct); 

if sf call clf_06; 

fchp, rtn; 

**************************:!,********************************************** 

* Select Code 07 Decoding and Execution * 
************************************************************************* 
8c_07_tbl: $align 16$ 

{stf_07:} rtn; *STF - NOP 

{ml@_07:} goto ml@07,sl:=cab; *MI@ - merge A w/ violation register 

clf_07: rtn; *CLF - NOP 

{11@_07:} goto ll@07,sl:-aero;*LI@ - load A w/ violation register 

{8f@ 07:) rtn; *SF? - NOP 



♦Ote - NOP 

*SF? - skip if TBGF 

* 

*STC - turn on Time Base Generator 

* 
* 

*CLC - turn off Hme Base Generator 
* 

♦DECODE SC_06: 

* set TDI, transform instruction 

plop htm if memory protect is enabled 

set SF on ' ,C' bit 

decode instruction 

set Y15 on STC vs CLC bit 

if ' ,C' call CLF_06 

that's all 
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0545 

0546 

0547 

0548 

0548 

0549 

54A 

054A 

054B 

054B 

054C 

054C 

054D 

054E 

054E 

054F 

054F 

054F 

054F 

054F 

0550 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

559 

055A 

055B 

055C 

055D 

055E 

055F 

0560 

0560 

0560 

0560 

0560 

0560 

0560 

0560 

0560 

0560 

0561 

0562 

0563 

0563 

0563 

0564 

0564 

0565 

0566 

0566 

0567 

0567 

0568 

0568 

0569 

0569 

056A 

056A 

056A 

056A 

056B 

056B 

056B 

056C 

056C 

056D 

056D 

056E 



{ot@_07:} goto ot907; 

{sf@_07:} rtn; 

{@lc_07:} if yl5 then rtn; 

stc07: 

ist:=i£;t and not I_MPD; 

rtn; 
sc_07: 

cmid, c;t:"srg(ct); 

If mperi goto prlv_07, 
s0:=-]li(ct); 

call sc_07_tbl, ct74, 
nop:="rl4(ct); 

fchp, rtn; 
priv_07: 

goto PRIV_TPJ«'; 



*0T@ - output A into violation register 

*SF? - NOP 

*CLC - NOP 

*STC - enable memory protect until interrupt 



*DECODE SC_07: 

* set TDI, transform instruction 

sqsh her if memory protect is enabled 

set SF to ' ,C' bit 

decode instruction 

set Y13 on STC vs CLC bit 

that's all 



*llnk to PRIV TRAP 



********************************************************************** 
* lOHS and BCST utilities * 

********************************************************************** 



iohs_tbl: $align 16$ 

{00} rtn; 

{01} rdio, goto iohs_ldp; 

{02} rdio, goto lohs_lda; 

{03} rdio, goto iohs_ldb; 

{04} sto, rtn; 

{05} clo, rtn; 

{06} rdio, goto iohs_mi@; 

{07} ip, rtn; 

{10} rta; 

{11} goto iohs_boot; 

{12} nop:-a, wrlo, rtn; 

{13} nop:-b, wrio, rtn; 

{14} cle, rtn; 

{15} ste, rtn; 

{16} nop:=p, wrio, rtn; 

{17} nop:=p, wrlo, ip, rtn; 



*execute the control word. 

* nop 

* load P from backplane 

* load A from backplane 

* load B from backplane 

* STO 

* CLO 

* merge data into * 

* inc(P) 

* undefined 

* enable bootstrap roms 

* put A on backplane 

* put B on backplane 

* CLE 

* STE 

* put P on backplane 

* put P on backplane, inc(P) 



lOHS: 

{ 
Perform an 10 Handshake with the L-serles backplane 
Calling sequence: 

call BCST; *broad 

call lOHS, bbus/t; *must 



cast the instruction at FA 
freeze! do 10 handshake 



} 
elf; 

> 

if not iorq then rtn; 
beginlocp: 
rdio, 

s7:=ct; 
iohs_loop: 
stf; 

nop: "0x0 100 and t; 
if yz then goto lohs_quit, 

ct:-t; 
call lohs_tbl, ct74, 

ct:"s7; 
lorq_wait: 

if not iorq goto iorq_wait; 
goto iohs_loop, 

rdio, s7:=ct; 

iohs quit: 

goto JLohs_tbl, ct74, 
ct:="87; 

iohs_ldp : 

p:-t, rtn; 
iohs_lda : 

a:-t, rtn; 
iohs_ldb: 

b:"t, rtn; 
iohs ml9 : 



*F will be set If IOHS performed 

*must wait for IORQ 

*if no IORQ now then never. 

* 

*read first command word 

* (save instruction) 
*L00P 

*set flag to indicate IOHS performed 
*freeze until I/O device returns CW 
♦branch if this is the last IOHS 

* prepare for table jump 
*call IOHS table 

* restore CW 
* 

*wait for IORQ (ICM has failed if forever) 

* loop and wait for iorq. 



*last execution of loop 
*goto IOHS table (last IOHS) 
* (save CW) 

*load P 

* 

*load A 

* 

*load B 
* 

*merge * 
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056E 
056F 
0570 
0570 
0571 
0572 
0573 
0574 
0574 
0575 
0575 
0575 
0575 
0575 
0575 
0575 
0575 
0575 
0576 
0576 
0577 
0577 
0578 
0578 
0579 
057A 
057B 
057C 
057C 
057D 
057D 
057D 
057D 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057E 
057F 
0580 
0581 
0582 
0583 
0583 
0583 
0583 
0583 
0583 
0583 
0583 
0584 
0584 
0585 
0585 
0586 
0587 
0587 
0588 
0588 
0589 
058A 
058A 
058B 
058C 



s7:-cab; 

cab:=s7 lor t, rtn; 
lohs_boot : 

memr: =0x0040 lor memr; 

call WMAP_PACK, n:=ones; 

sl:-0100; 

ist:=lst lor I_MPD; 

cmld, 

wrb:=sO, bbus/sl, rtn; 



* 

♦enable boot rom. 

* enable rom bit 

*store the WMAP in location 2 of 
*bootmemory 

* disable MP 

* must do tdi to prevent 10 Interrupt 

* write packed WMAP into boot loc 100 



BCST: 
{ 

Broadcast routine 

BCST uses the BFB special to refetch the operand with RNI- 
ABFetches are written into Oorl of bootram and BFBed 
from there. 
} 

nop: =0x0800 and memr; 
if not yz then bfb, 

bbus/fa; 
if not yz then rtn, 
s7:-ct; 
bc8t_abf : 
s6:-memr; 
memr: =0x0060; 
Mrb:-s7, bbus/fa; 
bfb, bbus/fa; 

memr:=s6, bbus/t, rtn; 



*if not AB fetch then 

* then do backplane fetch of opcode 

* 

* and return 

* 

*else broadcast ABFetch 

*save current map 

*load MEMR with bootmemory mode (no abaddr) 

*wrlte instruction into bootmemory. 

♦fetch instruction from bootmemory, 

* assert RNI- and freeze 

* before restoring memr. 



io§_mp: 

goto PRXV_TRAP; 

* Select Codes >= 20, HLT and Unused Select Code Execution * 

II***************************************************-!,*-)!****************** 



IOG_HIGH: 
HLT: 

if mpen goto iog_mp; 

call BCST, acc:-zeros; 

call lOHS, nop:=t; 

cmid; 

fchp, rtn; 



*not implemented 
*not implemented 
*not implemented 
*not implemented 
*not Implemented 
*not implemented 
*not implemented 
*not implemented 
*not implemented 
* 

*HLT AND HIGH SELECT CODE 10 INSTRUCTIONS 

*check memory protect 

♦broadcast 

* 

*do interrupt holdoff 

* 



****************************************************************************** 

* Continuation of Select Code <= 20 Instructions * 

****************************************************************************** 



* 
sf@00: 

if yl5 goto sfsOO; 
sfcOO: 

nop:=ST_LV3 and prin; 
sfc@@: 

if not yz then rtn; 

ip, rtn; 
sfsOO: 

nop:»ST_LV3 and prin; 
sfs@@: 

If yz then rtn; 

Ip, rtn; 
ot@00: 



♦SELECT CODE 00: 

♦branch on sfc vs sfs 
* 

♦skip if isf set 

* 

♦(general purpose skip if flag set) 
* 



♦skip if isf clear 

* 

♦(general purpose skip if flag clr) 
* 



♦output to interrupt mask register 



prin:-not ST_TBG_E and prin;^clear out TBG enable bit 
nop: -cab and 0x0002; ♦should I enable TBG? 
if not yz goto ot@00f; ♦ 



E-13 



Appendix E 



058D 

058E 

058F 

058F 

058F 

0590 

0591 

0591 

0592 

0593 

0594 

0594 

0594 

0594 

0595 

0596 

0596 

0597 

0598 

0598 

0599 

0599 

059A 

059B 

059B 

059C 

059D 

059D 

059E 

059E 

059F 

05A0 

05A0 

05A1 

05A2 

05A2 

05A2 

05A3 

05A4 

05A4 

05A5 

05A6 

05A7 

05A7 

05A7 

05A7 

05A8 

05A8 

05A9 

05AA 

05AA 

5AB 

05AC 

05AC 

05AD 

05AD 

05AE 

05AF 

05AF 

02FE 

02FE 

02FF 

02FF 

0300 

077D 

077D 

077E 

077F 

0780 

00D8 

CODS 

00D9 

00D9 

OODA 

OODB 



prin:=prln lor ST_TBG_E; 

call SET_TBG_INT; 
otgoOf: 
fakeiohs: 

sl:-12; 

nop: =0x0800 and ct; 

if yz then fcin, 
sl:=sl; 

nop:=sl, wrlo; 

nop:=cab, wrlo, rtn; 

* Select code 2 
stf02: 

prin:=ST GRDI lor prin; 

rtn; 
clf02: 

prln:=not ST_GRDI and prln; 

rtn; 
sf@02: 

if yl5 goto sfs02; 
sfc02: 

nop:-S"r_CRDI and prln; 

goto sfc@@; 
sfs02: 

nop:=S:n:;RDI and prln; 

goto sl:s@@; 
Bf@04: 

if yl5 goto sfs04; 
sfc04: 

nop:-memr and MEMR_PFW; 

goto sl:ci3@; 
sfs04: 

nop:=memr and MEMR_PFW; 

goto s):s(?@; 
li@04: 
mi@04: 

n:-N_C:[R; 

cab:=prin lor si, rtn; 
ot@04: 

n:-N_C:[R; 

prin:=cab and 077; 

rtn; 

*SELECT CODE 5, CONTINUED 
sf@05: 

if not yl5 goto sfc03; 
sfs05: 

s1:-I_:PS0DD and 1st; 

goto sfcl3@; 
sfc05: 

s1:"X_:PS0DD and ist; 

goto sfs(|@; 
li@05: 

n:-N_PELl; 

if not sf then rtn, in, 
cab:"srin; 

cab:-2uy(srln) , rtn; 

♦SELECT CODE 6, CONTINUED 
stf06: $orlgin Ox2FE$ 

n:-N_TBGT_COUNTER; 

goto SE'3;_TBG_INT, 
prln:»=prln-ac.c; 

clf06: $orlgln Ox77D$ 
n:-N_TBGT_COUNTER; 
ist:-lst and not I_TBGF; 
prln: "Zeros, rtn; 

sf@06: $origin 0xD8$ 

if yl5 goto sf806; 
sfc06: 

n:-N_irBC:T COUNTER; 

goto f>fc@^, nop: -prln; 
sfs06: 



*yes: set my flag and 

* enable it if all qualifiers are enabled 
*no: continue 

* perform fake lOHS (CPU drives CW) 
*fake out 10 control word for writing 

* A or B to backplane 

*if OTA then control word =12 

* else control word = 13 
*wrlte control word to backplane 
*write A or B to backplane 



♦Disable global register 

* state 
* 

♦Enable global register 

* state 



♦skip if GR is enabled 

♦skip if GR is disabled 

* 
* 
♦skip if power going down 



♦skip If power coming up 

♦load from central interrupt register 
♦merge from central Interrupt register 

♦output to central interrupt register 



♦skip if parity sense is even 

* 

♦skip if parity sense is odd 

* 

* 

♦load from parity error register 

♦LI@ = load low 16 bits of PE 

♦LI@,C = load high 8 bits of PE 



♦Set TBGflag 

♦Clear TBGflag 

* 

* 

* 

♦Skip if TBGflag is clear 

* 



♦Skip If TBGflag is set 
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OODB 

OODC 

02DF 

02DF 

02DF 

02E0 

02E1 

02E2 

OOEB 

OOEB 

OOEB 

OOEC 

OOED 

OOEE 

OOEE 

OOEF 

OOEF 

OOEF 

OOEF 

OOEF 

OOEF 

OOEF 

0270 

0270 

0271 

0272 

0273 

0274 

0274 

0274 

0274 

0275 

0276 

0277 

0278 

0279 

027A 

027B 

027B 

027B 

027C 

027D 

027E 

027F 

023A 

023A 

023B 

023C 

023D 

023E 

023F 

0240 

0370 

0370 

0371 

0372 

0373 

0373 

0373 

0373 

0373 

0373 

0373 

0373 

0373 

0374 

0375 

0377 

0377 

0377 

0378 

0379 

037A 

037B 

037C 

037D 



n :=N_TBGT_COUNTER; 

goto 8fs@@, nop:=prin; 
11@07: $origin 0x2DF$ 
ml@07: 

if not sf then rtn; 

n : =N_MP_VIOLATION; 

cab:=prln ior si, rtn; 

ot@07: Sorigln 0x00EB$ 

if not sf goto ot@07h, 
sl;"cab; 

n : =N_MP_VI0LATI0N; 

prin:=cab and Ox7fff; 
ot@07h: 

rtn; 



*Load @ from MP violation register. 
*Merge @ from MP violation register. 
*L1@,H and MI@,H are NOPs 

♦Output @ to MP violation register. 
* 



! I 



it******************************************************************** 

* Interrupt enable routines * 

* These routines are origin'd throughout the base set to * 

* fill in holes due to fragmentation * 



CLR_LV2: $origin 0x270$ 
n:=N_ST; 

prin:=prin and not ST_LV2; 
ist:=ist and not 0x8120; 
rtn; 



SET_LV2: 
n:-N_ST; 

prin:=prin ior ST_LV2; 
ist:=ist ior 0x0020; 
nop:=prin inor ST_LV23; 
if not yz then rtn; 
ist:=ist ior 0x0100; 
goto SET_TBG_INT; 

CLR_LV3: 
n:-N_ST; 

prin:=prin and not ST_LV3; 
ist:=ist and not 0x8100; 
rtn; 

SET_LV3: $origin Ox23A$ 
n:-N_ST; 

prin:-prin ior ST_LV3; 
nop:=prin inor ST_LV23; 
if not yz then rtn; 
ist:=ist ior 0x0100; 
goto SET_TBG_INT; 

clc_00: $origin 0x370$ 
sl:=0xfff0 and ist; 
ist:-sl lor I_CRS; 
goto clcOflags, ist:=sl; 



PULSE_SCHOD: 

8l:=OxfffO and ist; 
ist: -si ior I_SCHOD; 
ist:-sl; rtn; 

OF_TBG : 

sl:-OxfffO and ist; 
ist: -0x0404 ior si; 
n:=N_TBGT_COUNTER; 

f 

sl:=0xfff0 and ist; 
ist:=I_TBGT_CLR ior si; 
rtn, prin:=zero; 



♦CLEAR THE LEVEL 2 INTERRUPT ENABLE 

* (behind SRG code) 

* clear level 2 enable 

* 0x0020 disable PFW interrupts 

* 0x8000 disable TBGflag Interrupts 

* 0x0100 disable 10 interrupts 



*SET THE LEVEL 2 INTERRUPT ENABLE 
* emulate its functions. 

set level 2 enable 

enable PFW 

should I/O and TBG be enabled? 

no: then return 

yes: enable I/O 

yes: do the TBG flag thing 



*CLEAR THE LEVEL 3 INTERRUPT ENABLE 

* emulate its functions. 

* 

* 0x8000 disable TBGF 

* 0x0100 disable I/O 



*SET THE LEVEL 3 INTERRUPT ENABLE 
* (behind ASG code) 
set level 3 enable 
if level 

2 and 3 are enabled, 

then enable I/O interrupts 

then set a TBG interrupt 



♦system reset 
♦pulse CRS 

* 

♦parity system on 

♦memory protect off 

♦clear pending memory protect interrupt 

♦enable level 2 

♦disable level 3 

♦gr disabled 

♦tbg flag cleared, TBG turned off 

♦Assert SCHOD for one cycle 
♦ to acknowledge SCHID. 
* 



♦TURN OFF THE TIME BASE GENERATOR 
♦Clear possible tbgtick and 

♦ turn it off in the same line 
* 

♦ and wait for tick to propogate. 
♦clear tbgtick that may have 

♦ propogated because of turning off TBG 
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037E 
02E2 
02E2 
02E3 
02E4 
02E5 
02E6 
02E6 
02E6 
02E7 
02E8 
02E9 
02EA 
02EB 
02EC 
02ED 
02EE 
02EE 
02EE 
02EF 
02F0 
02F1 
02F1 
02F1 
02F2 
02F2 
02F3 
02F4 
02F4 
02F5 
02F6 
02F6 
02F6 
02F7 
02F8 
02F9 
02FA 
02FB 
02FC 
02FD 
02FE 
02AB 
02AB 
02AC 
02AD 
02AE 
02AE 
02AF 
02B0 
O2B0 
02B1 
02B2 
02B3 
02B4 
02B5 
02B6 
02B6 
02B6 
02B7 
02B7 
02B8 
02B9 
02B9 
02BA 
02BB 
02BC 
02BD 
02BE 
02BF 
02BF 
02C0 
02C0 
02C1 



DI_PE_INT: $origln 0x2e2$ 
sl:-OxfffO and ist; 
lst:=sl ior I_PE_CLR; 
ist:=sl and not I_PEE; 
rtn; 

SET_TBG_INT: 
n:=-N_S'T; 

nop:=prln Inor ST_LV23T; 
if not yz then rtn; 
n : -N_TB(3 T_COUNTER ; 
nop:"prln; 
if yz then rtn; 
ist:=lst ior I__TBGF; 
rtn; 

BOOT: 

n:-N_MPAR; 

ct:-1023; 

srin:~0; 

set_map: 

If not ctz goto set_map, 
map:-srin; 
RESET_PU: 

menir:-MEMR_BOOT; 

p: -020002, bbus/memr; 

if not bl5 goto no_tdi, 
n:"lll (ones) ; 

cmld; 
no_tdi: 
clcOflags: 

call CiF_TBG; 

call S;Ef_LV2; 

call C;LR_LV3; 

ist:-0x:ic3C; 

ist:-Cixlc32; 

ist:-0x]c36, bbus/memr; 

prin:-S':r_RESET; 

nop:=z;ero, Idbr, rtn; 

WMAP_PACX: $orig:Ln 0x2ABS 

nop: -zero, Idq ; 

sO:"memr and OxOOlf; 

sl:=prin and OxlfOO; 

sl:-rll(sl), 

if tiiot mpen goto umapnmp; 

sO:-bO ior 0x8000; 
wma pnmp : 

sl:-rll(sl); 

s2:-prin and OxOOlf; 

s2:-rll<s2); 

s2:-rl4(s2); 

sO:-80 lor si; 

80:-sCi lor s2, rtn; 

WMAP_UNPACK: 

s2:-rrl(sl); 

If not bl3 goto wmap nomp, 
s3:-rll(82); 

ist:=ist and not I_MPD; 
wmap_noiii.p: 

83:-0s:lf00 and s3; 

82:-rl4(82); 

s2:-swzu(82); 

s2:-82 and OxOOlf; 

prin:-82 ior 0x2020; 

iaemr:»'8l and OxOOlf; 

prin:~prin ior 83, 
rtn; 



♦Disable parity Interrupts 

* (behind EAG divide code) 

* 
* 

*Set the TBGflag. (Called when one of the 

* qualifiers is enabled) . 

* level 2 and 3 and TBG_E must be enabled 

* Is TBG tick counter greater than zero? 
* 

* n: then return; 

* y: then set TBGFLAG. 



*SET THE PROCESSOR UP TO BOOT 

* Set up maps for logical to physical 

* mapping of pages 

* to 1023 
* 

* 

*RESET UPPER PROCESSOR (used by selftest) 
*A700 will enter boot memory 
*in Virtual Control Panel 

* 

*n:=N_ST; 

♦complement the interrupt holdoff 

*TBG initialization: turn it off. 
♦enable level 2 interrupts 
♦disable level 3 interrupts 
♦reset PE int (PE enabled) 
♦reset MP int (PFW enabled) 
♦reset MTO Indicator 
♦reset microcode-kept status 
♦Initialize base reglseter 

♦STORE PACKED WMAP INTO SO 
♦DW might be enabled! 
♦get EXECUTE field 

♦get DATA2 field 
♦get DATAl field 



♦that's all. 



♦load WRAP from si 
♦(DW must be disabled!) 

* 

♦turn on memory protect 

♦s3 - DAIA2 field 

* 

* 

♦s2 = DAIAl field 

♦set A/B addressibllity off for DATAl, DATA2 
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MPARA source listing 

0000 MPARA; *iiiemory reference group and memory utilities <82020A. 1442> 

0104 $origin 0x104$ *file = &MRG <820204. 1442> 

********************************************************************* 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language vrtthout the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 



0104 

0104 

0104 

0104 

0104 

0104 

0104 

0104 

0104 

0104 

0104 

0104 

0105 

0106 

0106 

0107 

0107 

0108 

0108 

0108 

0108 

0109 

0109 

OlOA 

OlOA 

OlOA 

OlOA 

OlOB 

OlOC 

OlOC 

OlOC 

OlOD 

OlOE 

OlOE 

OlOF 

0110 

DUO 

OHO 

0110 

0111 

0112 

0112 

0112 

0113 

0114 

0114 

0115 

0115 

0116 

0116 

0116 

0117 

0117 

0118 

0118 

0118 

0118 

0119 

01 lA 

OllA 

01 lA 

OllB 

OUB 

one 
one 

OllD 
OllE 
OllE 
OllF 
0124 
0124 



$define adrl/INST_RESTART OxO0D0$ 



AND_D: $origin 0x104$ 
a:=a and t, 
fchp, rtn; 

JSB_D: $origin 0x106$ 
ace :=p, cmid; 
wrb:»acc, bbus/ma, 
goto jsbxl; 

X0R_D: $origin 0x108$ 
a:=a xor t, 
fchp, rtn; 



*AND,D (read of data was begun by JTAB) 

* logical and A with memory data. 

* fetch. .. 

*JSB,D (JTAB latches MRG address in MA) 

* store p value into return register 

* write p value to MRG address 



*XOR,D (read of data was begun by JTAB) 

* logical xor A with data 

* fetch... 



jsbxl: p:=ma+one, goto jsbx2; * set p to MRG address plus one 



JMP_D: $origin 0xl0a$ 
p:=ma, 
rtn; 

I0R_D: $origln 0x1 Oc$ 
a:=a ior t, 
fchp, rtn; 

ISZ_D: $origin OxlOe$ 
p:=ma; 
wrp;-t-acc, goto isz_dx; 

ADA_D: $origln 0x110$ 
a:»a+t, enoe, 
fchp, rtn; 

ADB_D: $origin 0x112$ 
b:=b+t, enoe, 
fchp, rtn; 

CPA_D: $origin 0x114$ 
acc:=cab; 
nop:=acc xor t, 
goto cp@x; 

CPB_D: $origin 0x116$ 
acc:=cab; 
nop:=acc xor t, 
goto cp@x; 

LDA_D: $origin 0x118$ 
a:-t, 

fchp, rtn; 

LDB_D: $origin Oxlla$ 
b:-t, 

fchp, rtn; 

J8bx2: 

STA_D: $origin 0x1 lc$ 
fchp, rtn; 

S1B_D: $origin 0x1 le$ 
fchp, rtn; 

AND_I: $origin 0x124$ 
call INDREAD; 



*JMP,D (fetch was begun by JTAB) 

* Stuff MRG address into p 
* 

*I0R,D (read of data was begun by JTAB) 

* logical or A with data 

* fetch. .. 

*ISZ,D (read of data was begun by JTAB) 

* prepare for write 

* write incremented value 

*ADA,D (read of data was begun by JTAB) 

* add memory to A, set E or 

* fetch... 

*ADB,D (read of data was begun by JTAB) 

* add memory to B, set E or 

* fetch. .. 

*CPA,D (read of data was begun by JTAB) 

* 



compare A and data 



*CPB,D (read of data was begun by JTAB) 
* compare B and data 



*LDA,D (read of data was begun by JTAB) 

* Load A. 

* fetch. .. 

*LDB,D (read of data was begun by JTAB) 

* Load B. 

* fetch. .. 

*jsb extension 2 - just fetch and return 
*SXA,D (store of data was begun by JTAB) 

* fetch. .. 

*STB,D (store of data was begun by JTAB) 

* fetch... 

*AND,I (read of indirect was begun by JTAB) 

* indirect 
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E 


0125 


a:=a and t, 


0125 


fchp, rtn; 


0126 




0126 


JSB_I: $origln 0x126$ 


0126 


goto INDJSB, 


0126 


ace ;=p; 


0127 




0128 


XOR I: $orlgiii 0x128$ 


0128 


call IKDREA13; 


0129 


a:=a xor t. 


0129 


fchp, rtn; 


012A 




012A 


JMP_I: $orlglii 0x1 2aS 


012A 


cmid; 


012B 


goto jmplnd, nop:=t; 


012C 




012C 


lOR I: $orlgln 0xl2c$ 


012C 


call INDREAD; 


012D 


a:=a lor t, 


012D 


fchp, rtn; 


012E 




012E 


ISZ_I: $orlgln 0x1 2e$ 


012E 


call isz Ix; 


012F 


wrp:=t-acc, goto Isz dx; 


0130 




0130 


ADA I: $origln 0x130$ 


0130 


call INDREAD; 


0131 


a:=-a+t, enoe. 


0131 


fchp, rtn; 


0132 




0132 


ADB I: $orlgin 0x132$ 


0132 


call INDREAD; 


0133 


b:=b+t, enoe. 


0133 


fchp, rtn; 


0134 




0134 


CPA_I: $origin 0x134$ 


0134 


call INDREAD, acc:=cab; 


0135 


nop:=acc xor t., 


0135 


goto cp@x; 


0136 




0136 


CPB I: $origln 0x136$ 


0136 


call INDREAD, acc:=cab; 


0137 


nop : =acc xor t , 


0137 


goto cp@x; 


0138 




0138 


LDA I: $origln 0x138$ 


0138 


call INDREAD; 


0139 


a:=t. 


0139 


fchp, rtn; 


013A 




013A 


LDB I: $origin 0xl3a$ 


013A 


call INDREAD; 


013B 


b:-t. 


013B 


fchp, rtn; 


013C 




013C 


STA I: $orlgin 0x1 3c$ 


013C 


call INDSTORE, ace: -a; 


013D 


fchp, rtn; 


013E 




013E 


STB I: $origln 0xl3e$ 


013E 


call INDSTORE, acc:=b; 


013F 


fchp, rtn; 


0140 




0700 


INDREAD! $orlgln 0x700$ 


0700 


nop:=t, rdb; 


0701 


if not bl5 then rtn. 


0701 


s6:='ma+one; 


0702 


nopi-t, rdb; 


0703 


if not bl5 then rtn. 


0703 


86:»"iiU:i+one; 


0704 


indrd2: 


0704 


nop;=-t, rdb; 


0705 


if not bl5 then rtn. 


0705 


s6:=nna+one; 


706 


call tdi disable. 



* logical and a and data 

* fetch. .. 

*JSB,I (read of Indirect was begun by JTAB) 

* write p into return register, 

* write into return register 

*XOR,I (read of Indirect was begun by JTAB) 

* Indirect 

* logical xor a and data 

* fetch... 

*JMP,I (read of Indirect was begun by JTAB) 

* set TDI 

* indirect 

*IOR, I (read of indirect was begun by JTAB) 

* indirect « 

* logical lor A and data 

* fetch. .. 

*ISZ,I (read of indirect was begun by JTAB) 

* indirect 

* write Incremented value back 

*ADA,I (read of indirect was begun by JTAB) 

* indirect 

* add data to A 

* fetch... 

*ADB,I (read of indirect was begun by JTAB) 

* indirect 

* add data to B 

* fetch. .. 

*CPA,I (read of indirect was begun by JTAB) 

* indirect 

* compare A to data 



*CPB,I (read of indirect was begun by JTAB) 

* indirect 

* compare B to data 



*LDA,I (read of indirect was begun by JTAB) 

* indirect 

* load A 

* fetch... 

*LDB,I (read of indirect was begun by JTAB) 

* indirect 

* load B 

* fetch... 

*STA,I (read of indirect was begun by JTAB) 

* indirect store 

* fetch... 

*STB,I (read of indirect was begun by JTAB) 

* indirect store 

* fetch. .. 

*indlrect read utility 

*lst level: save t, start new read 

* if t was direct then return 

* save address+l in 
*2nd level: 

*3rd level : 

♦assure that interrupts are enabled 
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0706 


nop : =meinr ; 




0707 


goto INDREAD; 




0708 






0708 


tdl_dlsable: 


♦disable tdi and check interrupts 


0708 


if not bl5 goto check:_lnts; 


*if tdi is set 


0709 


cmld ; ; 


* then disable (and wait for intp) 


070B 


check_lnt8: 


* 


070B 


if not intp then rtn; 


*if no interrupts then return 


070C 


goto INST RESTART, 


♦restart instruction 


070C 


p:=fa; 


♦reset program counter 


070D 






070D 


INDSTORE: 


♦indirect store utility 


070D 


cwrb:=acc, bbus/t; 


♦1st level: if direct then store 


070E 


s6:=ma+one, 


♦ and return, else read new memory 


070E 


if not bl5 then rtn; 


♦ address. 


070F 


cwrb:=»acc, bbus/t; 


♦2nd level: 


0710 


s6:=ma+one. 


* 


0710 


if not bl5 then rtn; 


* 


0711 


cwrb:=acc, bbus/t; 


♦3rd level: 


0712 


s6:=nia+one. 


* 


0712 


if not bl5 then rtn; 


* 


0713 


call tdi_disable. 


* 


0713 


nop : =meinr ; 


* 


0714 


goto INDSTORE; 


* 


0715 






0715 


INDRSOLV: 


♦indirect resolution utility 


0715 


s7:-t+sO; 


♦1st level: save t 


0716 


if not bl5 then rtn; 


♦ if direct then rtn. 


0717 


rdb, bbus/t; 


♦ initiate read 


0718 


s7:=t+sO; 


♦2nd level : save t 


0719 


if bl5 then rdb, bbus/t; 


♦ if indirect initiate read 


071A 


if not bl5 then rtn; 


♦ if direct then return 


07 IB 


s7:=t+sO; 


♦3rd level; save t 


071C 


if bl5 then rdb, bbus/t; 


♦ if indirect initiate read 


071D 


if not bl5 then rtn; 


♦ if direct then return 


071E 


call tdl_disable, 


* 


071E 


nop:=memr; 


* 


071F 


goto INDRSOLV; 


* 


0720 






0720 


INDJMP: 


♦indirect branching utility 


0720 


nop:-t; 


♦level 1: freeze until data returned. 


0721 


if not bl5 goto fetch. 


♦ if direct then fetch 


0721 


p:-t; 


* 


0722 


rdb, bbus/t. 


♦level 2: 


0722 


call indjshowt; 


* 


0723 


jmpind : 


* 


0723 


if not bl5 goto fetch, 


♦ if direct then fetch and return 


0723 


p:=t; 


* 


0724 


rdb, bbus/t. 


♦level 3: 


0724 


call indjshowt; 


♦ freeze until data returned 


0725 


if not bl5 goto fetch. 


♦ if direct then fetch and return 


0725 


p:=t; 


* 


0726 


call tdi_disable. 


♦assure that interrupts are disabled. 


0726 


nop:=memr; 


* 


0727 


goto INDJMP; 


* 


0728 






0728 


indjshowt : 


* 


0728 


nop:=t, rtn; 


* 


0729 






0729 


isz_ix: 


♦continue ISZ,I 


0729 


nop:=t, rdb; 


♦freeze until address is returned 


072A 


if not bl5 then rtn, 


♦if direct then return 


072A 


p:-ma; 


♦ load P 


072B 


call INDREAD; 


♦do indirect 


072C 


p:=ma, rtn; 


♦load P 


072D 






072D 


INDJSB: $origin Ox72D$ 


♦Indirect jsb routine... 


072D 


cwrb:=acc , bbus/t, cmid; 


♦ 1st level: if direct then write els 


072E 


p ; -ma+one , 


♦ p gets address to jump to 


072E 


if not bl5 goto fetch; 


♦ if direct then done. 


072F 


cwrb:-acc , bbus/t; 


♦ 2nd level: 


0730 


p : =ma+one , 


* 


0730 


if not bl5 goto fetch; 


* 


0731 


cwrb:"acc , bbus/t; 


♦ 3rd level: 


0732 


p:-ma+one, 


* 
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0732 
0733 
0733 
0734 
0735 
0735 
0735 
0736 
0736 
0737 
0738 
0738 
0739 
073A 
073B 
073B 
073C 
073C 
073C 
073C 
07 3D 
073E 
073E 
073E 
CI73F 
073F 
0740 
0740 
0741 



if not bl5 goto fetch; 
call tcll_ disable, 

nopr^-memr; 
goto IIIDJSB; 

INDRDBL: 

nop;=t, rdb; 

if not bl5 goto dblrdone, 
p:»mai+one; 

nopt-t, rdb; 

if not bl5 goto dblrdone, 
p:=mai+i:>ne; 

if not intp goto indrdbl; 

goto INST_RESXAST, p:-fa; 
dblrdone; 

s7:"t, rdp, rtn; 

isz_dx: 

if not ya goto fetch, 

p:=»fa-acc; 
p:=p-at:c, goto fetch; 

cp@x: 

if not yz then ip; 
fetch: 

fchp, rtn; 



♦DOUBLE READ UTILITY (Intrpt after 2) 

*get past DEF 

*was it direct? 

*y: prepare for second read 

*n: start indirect read 

*was it direct? 

*y: prepare for second read 

*check Interrupts now 

* 

*save high word, start second word read 

*isz extension: 

* optimize for non skip case 

* p:=next opcode 

* fetch. .. 

*cp@ extension: 

* if not equal then skip 

* fetch 



MPARA source listing 

0000 MPARA; *alter skip group macroinstructions <820204.1550> 

OlEO $origin OxlEO$ *file - &ASG <820204. 1550> 

* (C) Copyirlght Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent: of Hewlett Packard Company. * 



OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEO 
OlEl 
OlEl 
01E2 
01E2 
01E2 
01E3 
01E3 
01E4 
01E4 
01E4 
01E5 
01E6 
01E6 
01E6 
01E7 
01E8 
01E8 
01E9 
OlEA 
OlEA 
OlEB 
OlEC 
OlEC 
OlED 
OlEE 
OlEE 
OlEF 
OlFO 
OlFO 



ASG_ALL: $origin OxleO$ *ASG instructions (JTAB entry) 3-9 cycles 



$origin OxleO$ 

n:=rll(cab); 

ct:-asg(ct) , 
goto asg_ext; 
$origin Oxl.e2$ 
asg_skip: 

ip; 

asg_noskip: 

fchp, rtn; 
Sorlgln Oxle4$ 
sz@: 

if yz then ip; 

fchp, rtn; 
$origln Oxle6$ 
Ez@rss: 

If not yz then Ip; 

fchp, rtn; 
$orlgin OxieSS 

if not yl5 then ip; 

fchp, rtn; 
$origln OxleaS 

if yl5 then ip; 

fchp, rtn; 
$origin Oxlec$ 

if not yl5 goto asg_skip;* 

goto 8!:@; * 

$origin Oxlee$ *JTAB entry for SS@,SZ@,RSS 

if yl5 goto asg_skip; * 

goto siiSrss; * 

inSnoBte;; * 

if not alov then rtn, * 



*JTAB entry for non-simple ASG instructions. 

* set up n register for asg transformation. 

* perform and execute complex ASG instruction. 

* (7-9) 

*JTAB entry for RSS (4) 
* 
* 
* 

*JTAB entry for SZ? (4) 
* 

* 

*JTAB entry for SZ@,RSS (4) 

*JTAB entry for SS@ (4) 

* 

* 

*JTAB entry for SS@,RSS (4) 

*JTAB entry for SS(?,SZ@ (5-6) 



(5) 



E-20 



Appendix E 



OlFO 

OlFl 

01F2 

01F2 

01F4 

01F4 

01F6 

01F6 

01F8 

01F8 

01F9 

OlFA 

OlFA 

OlFC 

OlFC 

OlFC 

OlFD 

OlFE 

OlFE 

OlFE 

OlFF 

OlFF 

OlFF 

OlFF 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

020A 

020B 

020C 

020D 

020E 

020F 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

02 lA 

021B 

021C 

021D 

021E 

021F 

0220 

0220 



fchb, bbus/p; 

sto, rtn; 
$origln 0xlf2$ 

cab:=zero, fchp, rtn; 
$orlgln 0xlf4$ 

cab:=not cab, fchp, rtn; 
$orlgln Oxlf6$ 

cab:=ones, fchp, rtn; 
$orlgin Oxlf8$ 

ace:- -ace, fchp; 

cab:=cab+acc, enoe, rtn; 
$orlgln Oxlfa$ 

cab:= -ace, fchp, rtn; 
$origin Oxlfc$ 

If not yz goto InUnoste, 
cab:= -cab; 

ste, fchp, rtn; 
$orlgin Oxlfe$ 

cabi-zero, ste, 
fchp, rtn; 

asg_ext: $orlgln OxlFF$ 
goto asg_tbll, ct30, 
acc:= -ace; 



* 

*JTAB entry for CL@ (3) 

* A or B :" zero 
*JTAB entry for CM@ 

* A or B :- not A or B 
*JTAB entry for CC@ 

* A or B := ones 
*JTAB entry for IN(3 

* A or B :- A or B plus 

* (can set E or 0) 
*JTAB entry for CL@,IN@ 

* A or B := 1 
*JTAB entry for CM@,IN@ 
* 
* 
* 
*JTAB entry for CC@,IN@ 

* A or B :- 

* (E is set on rollover) 

*ASG extension (7-9) 

* fall into asg_tbll, 

* put +1 in accumulator 



(3) 

(4) 
1 

(4) 

(4; 5 if setting 0) 

(3) 



asg_tbH: 
{ 

Execute the following 
CL@,CM@,CC@,NOP 
CLE,CME,CCE,NOP 
SEZ,SS@,SL@ 
Branch to asg_tbl2 if 
otherwise to tbl3. 

} 

{00} nop: -cab, 

{01} cab:=zero, 

{02} nop:-cab, 

{03} cab:='zero, 

{04} nop:-cab, 
■zero, 
■cab, 
■zero, 
■not cab, 
■ones, 
■not cab, 

{13} cab: -ones, 

{14} cab:=not cab, 

{15} cab: -ones, 

{16} cab: -not cab, 

{17} cab:»ones. 



asg instructions within the table: 
through bbus,abus and alu fields 
through ste or cle in store field 
Increment p. if skip equation is truCi 
no skip occurred. 



{05} cab: 
{06} nop: 



{07} 
{10} 



cab: 
cab: 



{11} cab: 
{12} cab: 



ct74, 

ct74, 

Ip, 

ip. 

ct74, 

ct74, 

Ip. 

ip, 

ct74, 

ct74, 

Ip, 

ip. 

ct74, 

ct74, 

ip, 

ip. 



cle, 
cle, 
cle, 
cle, 
ste, 
ste, 
ste, 
ste, 
cle, 
cle, 
cle, 
cle, 
ste, 
ste, 
ste, 
ste. 



goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg 
goto asg_ 
goto asg 
goto asg_ 
goto asg_ 
goto asg 



tbl2 

|tbl2 

iskp 

iskp 

"tbl2 

^tbl2 

iskp 

iskp 

"tbl2 

^tbl2 

iskp 

iskp 

"tbl2 

^tbl2 

iskp 

iskp 



* 
* 
* 

* 

* 
* 



asg 

{ 
If 
If 



tbl2: 



IN@ enabled then do it. 

SZ@ enabled then branch to do SZ@ 



(with or with RSS). 
YZ condition is set to cab for sz@ test. 



} 

{00} 

{01} 

{02} nop:=cab, 

{03} nop:=cab, 

{04} cab:=cab+ace, 

{05} cab:=caW-acc, 

{06} nop:=cab+acc, 

{07} nop:-cab+acc, 

{10} 

{11} 

{12} nop: 



fchp, 
fchp. 



enoe, 
enoe. 



fchp, rtn; 
fchp, rtn; 



rtn; 

rtn; 

goto a 
goto asg_i 

fchp, rtn; 

fchp, rtn; 

goto asg 
goto asg_; 



sz@; 
rsz@; 



in@sz@; 
ln@rsz@; 



=cab, 
{13} nop:-cab, 
{14} cab:-cab+acc, enoe, 
{15} cab:-cab+acc, enoe, 
{16} nop:-cab+acc, 
{17} nop:»cab+-acc, 

asg_tbl3: 



goto a8g_ 
goto asg 

fchp, rtn; 

fchp, rtn; 

goto asg 
goto asg 



_sz@; 
rsz@; 



in@sz@; 
in@rsz@; 



* RSS 

* SZ@ 

* SZ@,RSS 
*IN@ 

*IN@, RSS 
*IN@,SZ@ 
*IN@,SZ@,RSS 
* 

* RSS 

* SZ(? 

* sze,Rss 

*IN@, 

*IN@, RSS 

*IN@,SZ@ 

*IN@,SZ@,RSS 
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0220 


{ 






0220 


If 


IN@ enabled then do it. 




0220 


fchp and return. 




0220 


} 






0220 


{00} 


fchp, rtn; 




0221 


{01} 


fchp, rtn; 




0222 


{02} 


fchp, rtn; 




0223 


{03} 


fchp, rtn; 




0224 


{04} 


fchp, rtn, cab:=calH-acc, 


enoe; 


0225 


{05} 


fchp, rtn, cab:=cab+acc. 


enoe; 


0226 


{06} 


fchp, rtn, cab:=cab+acc. 


enoe; 


0227 


{07} 


fchp, rtn, cab:"cab+acc. 


enoe; 


0228 


{10} 


fchp, rtn; 




0229 


{11} 


fchp, rtn; 




022A 


{12} 


fchp, rtn; 




022B 


{13} 


fchp, rtn; 




022C 


{14} 


fchp, rtn, cab:-cab+acc. 


enoe; 


022D 


{15} 


fchp, rtn, cab:-cab+acc. 


enoe; 


022E 


{16} 


fchp, rtn, cab:=cab+acc. 


enoe; 


022F 


{17} 


fchp, rtn, cab;"cab+acc. 


enoe; 


0230 








0230 


a8g_ 


Iskp: 




0230 


goto asg tbl3, ct74; 




0231 








0231 


a8g_ 


ln@sz('i: 




0231 


if 


yz then ip; 




0232 


asg_ 


in@: 




0232 


cab:-cal)+acc, enoe, fchp, rtn; 


0233 








0233 


asg_ 


Bz@: 




0233 


if 


yz then ip; 




0234 


fc 


hp, rtn; 




0235 








0235 


asg 


in@r8z@: 




0235 


if 


not yz then ip; 




0236 


cab:=cah+acc, enoe, fchp, rtn; 


0237 








0237 


asg_ 


rsz@: 




0237 


if 


not yz then ip; 




0238 


fchp, rtn; 




0239 








0239 








023A 









MPARA source listing 

0000 MPARA; *shift/ rotate group macroinstructions <820204. 1550> 

OICO $origin OxlcO$ *file = &SRG <820204. 1550> 

* (C) Cop>Tight Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 



OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OICO 
OlCl 
01C2 
01C2 
01C3 
01C4 
01C4 
01C5 
01C6 
01C6 
01C7 
01C8 
01C8 
01C9 
OICA 
OICA 



SRG_ALL: $orlgin OxlcO$ 

$origin OxlcO$ 

call srgl, ct:»srg(ct); 

goto srg2; 
$origln 0xlc2$ 

call srgl, ct:-»srg(ct); 

fchp, rtn; 
$origin 0xlc4$ 

call argl, ct:'«8rg(ct) ; 

goto sl@srg2; 
$orlgin Oxlc6$ 

call srgl, ct:"8rg(ct); 

goto 8l@; 
$orlgln 0xlc8$ 

call argl, ct:«8rg(ct); 

goto clesrg2; 
$orlgln Oxlca$ 

call argl, ct:"srg(ct); 



*JTAB entry for SRC instructions (3-llcycles) 

*JTAB entry for srgl, NOP, NOP, srg2 
* 

*JTAB entry for srgl, NOP, NOP, NOP 



*JTAB entry for srgl, NOP, SL@,srg2 

*JTAB entry for srgl, NOP, SL@, NOP 

*JTAB entry for srgl, CLE, NOP, srg2 

*JTAB entry for srgl, CLE, NOP, NOP 
* 
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OICB 

OICC 

OICC 

OICD 

OICE 

OICE 

OICF 

OlDO 

OlDO 

OlDl 

01D2 

01D2 

01D4 

01D4 

01D5 

01D6 

01D6 

01D8 

0iD8 

01D9 

OlDA 

OlDA 

OlDB 

OlDB 

OlDC 

OlDC 

OIDD 

OlDE 

OlDE 

OlDF 

0240 

0240 

0240 

0240 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

024A 

024B 

024C 

024D 

024E 

024F 

0250 

0250 

0250 

0250 

0250 

0250 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

025A 

025B 

025C 

025D 

025E 

025F 

0260 

0260 

0260 



cle, fchp, rtn; 
$orlgln Oxlcc$ 

call srgl, ct:=srg(ct); 
goto clesl@srg2; 
$orlgln Oxlce$ 

call srgl, ct:=srg(ct); 

goto clesl@; 
$origin OxldO$ 

ct:-srg(ct); 

goto 8rg2; 
$origin Oxld2$ 

fchp, rtn; 
Sorigln Oxld4$ 

ct:"srg(ct); 

goto Bl@srg2; 
$orlgln Oxld6$ 

goto sl@; 
$origin 0xld8$ 

ct:=srg(ct); 

goto clesrg2; 
$origln 0xlda$ 

cle, fchp, rtn; 
srgl: 

gototbl srg_tbll; 
$orlgln 0xldc$ 

ct:=srg(ct); 

goto clesl@srg2; 
$orlgin Oxlde$ 

goto clesl@; 



*JTAB entry for srgl, CLE, SL@,srg2 
* 

*JTAB entry for srgl,CLE,SL@,NOP 

* 

*JTAB entry for NOP ,N0P,N0P,srg2 

* 

*JTAB entry for NOP ,NOP,NOP,NOP 

* (very NOP) 

*JTAB entry for NOP ,NOP, SL@,srg2 

* 

* 

*JTAB entry for NOP ,NOP,SL@,NOP 

*JTAB entry for NOP ,CLE,N0P,srg2 

*JTAB entry for NOP , CLE, NOP, NOP 

* (CLE only) 

*JTAB entry for NOP ,CLE,SL@,srg2 
* 

*JTAB entry for NOP ,CLE,SL@,N0P 



cab:=i 



srg_tbll: 
{ 

Perform 

} 

{00} 

{04} 

{10} 

{14} 

{01} 

{05} nop: = 

{11} cab:- 

{15} cab:- 

{02} 

{06} 



$origln 0x240$ *srg instructions, continued 

the 1st Instruction type of the SRG instruction and return 



nop:- 

{12} cab:: 

{16} cab:: 
{03} 
{07} 

{13} cab: 

{17} cab: 

srg_tbl2: 

{ 

Perform 
fetch 
} 

{00} 
{01} 
{02} 
{03} 
{04} 

{05} nop: = 
{06} nop: = 
{07} 

{10} cab:- 
{11} cab:- 
{12} cab:- 
{13} cab:- 
{14} ace:- 
{15} cab:- 
{16} cab:- 
{17} cab:- 



alKcab), 
=arl(ones), 

=rrl(cab) , 
■arl(cab) , 
■rrl(cab) , 

=rll(cab), 
=rll(cab), 
=rll(cab). 



■rrl(cab) , 
-rl4(cab). 



rtn; 

rtn; 

rtn; 
Iwf, goto 

rtn; 
Iwe, rtn; 

rtn; 
Iwe, rtn; 

rtn; 
Iwe, rtn; 

rtn; 
Iwe, rtn; 

rtn; 

rtn; 

rtn; 

rtn; 



8rg_@lrl; 



♦DISABLED *LS 
♦DISABLED *LR 
♦ENABLED *LS 
♦ENABLED ♦LR 
♦DISABLED ♦RS 
♦DISABLED ER^ 
♦ENABLED ♦RS 
♦ENABLED ER^ 
♦DISABLED R^L 
♦DISABLED EL^ 
♦ENABLED R^L 
♦ENABLED EL^ 
♦DISABLED R^R 
♦DISABLED ♦LF 
♦ENABLED R^R 
♦ENABLED ♦LF 



the 2nd instruction type of the SRG instruction, 
and return. 



'rrl(cab) , 
-rll(cab), 

-all(cab), 
■arl(cab) , 
■rll(cab), 
■rrl(cab) , 
■arl(ones) , 
■rrKcab) , 
■rll(cab), 
■rl4(cab) , 



8rg_@lrl: 

cab:-lll(acc and cab). 



fchp. 


rtn; 






♦DISABLED 


♦LS 


fchp. 


rtn; 






♦DISABLED 


♦RS 


fchp, 


rtn; 






♦DISABLED 


R^L 


fchp, 


rtn; 






♦DISABLED 


R^R 


fchp, 


rtn; 






♦DISABLED 


♦LR 


Iwe, 


goto 


srg_ 


tbl2; 


♦DISABLED 


ER^ 


Iwe, 


goto 


srg_ 


;tbl2; 


♦DISABLED 


EL^ 


fchp. 


rtn; 






♦DISABLED 


♦ LF 


fchp. 


rtn; 






♦ENABLED 


♦LS 


fchp. 


rtn; 






♦ENABLED 


♦RS 


fchp. 


rtn; 






♦ENABLED 


R^L 


fchp. 


rtn; 






♦ENABLED 


R^R 


Iwf, 


goto 


8rg_ 


@lr2; 


♦ENABLED 


♦LR 


Iwe, 


goto 


sr^tbl2; 


♦ENABLED 


ER^ 


Iwe, 


goto 


8rg_ 


_tbl2; 


♦ENABLED 


EL^ 


fchp. 


rtn; 






♦ENABLED 


♦LF 


♦perform first 

* 


♦LR and return 
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0260 
0261 
0261 
0261 
0262 
0262 
0263 
0263 
0264 
0265 
0266 
0266 
0267 
0268 
0269 
0269 
026A 
026B 
026B 
026C 
026C 
026D 
026E 
026F 
026F 
0270 



elf, rtn; 
sr^@lr2: 

cab:»lll(acc and cab), 
fchp, rtn; 
srg2: 

goto srg_tbl2, ct74; 
8l@ : 

nop:-lrl(cab); 

if not si: then ip; 

fchp, rtn; 
clesl@: 

nop:-lrl(cab) ; 

If not af then ip; 

fchp, cle, rtn; 
clesl@srg2: 

nop:"lrl(cab) ; 

If not sf then ip; 
clesrg2: 

goto srg tbl2, ct74, cle; 
sl@srg2; 

nop:-lrl(cab) ; 

If not sf then Ip; 

goto srg_tbl2, ct74; 



♦{clear flag for possible second *LR) 

♦perform 2nd *LR , fetch and return 

* 

* 

♦perform the second SRG instruction 

♦perform the SL@, fetch and return 

* 

♦perform the CLE and SL@, fetch and return 
* 

* 

♦perform the CLE, SL@ and second SRG 

♦perform the CLE and second SRG 
♦perform the SL@ and second SRG 

* 



MPARA source listing 

0000 MPARA; ♦extended arithmetic group macroinstructlons <820204. 1550> 

0280 $orlgln 0x280$ ♦file - &EAG <820204. 1550> 

lii,*************-!!***************************************************** 

* 

* 



0280 
0280 
0280 
0280 
0280 
0280 
0280 
0141 
0141 
0142 
0142 
0143 
0143 
0145 
0145 
0146 
0146 
0147 
0147 
0101 
0101 
0102 
0102 
0103 
0103 
0104 
0140 
0140 
0141 
0148 
0148 
0148 
0149 
014A 
014B 
014C 
014C 
014C 
014D 
014E 
014F 
0280 
0280 



♦ (C) Copyright Hewlett Packard Company 1982. All rights reserved. 

♦ No part of this program may be photocopied, reproduced or 

♦ translated to another program language without the prior written 

♦ consent of Hewlett Packard Company. ♦ 
********************************************************************* 



MPY: $orlgln 0x141$ 

goto eag_mpy, sO:"zero; 
DIV: $ortgln 0x142$ 

goto esig div, ct :-acc+acc; 
JLA: $orlgTn 0x143$ 

goto eag jie, rdp; 
DLD: $orlgTn 0x145$ 

goto eag did, rdp; 
DST: $origTn 0x145$ 

goto eag_dst, rdp; 
JLB: $origin 0x147$ 

goto eag_jl@, rdp; 
AS@: $origin 0x101$ 

goto eag as@; 
LS@: $origTn 0x102$ 

goto eag_ls@, sO:-ct; 
RR@: $origin 0x103$ 

goto eag rr@, sl:=a; 

eag^jlS: $origln 0x140$ 
goto IND,JMP, cab:=p-acc; 

eag_dld: $origin 0x148$ 
call INDREAII, 

pr-p-acc; 
a:"t; 

bbus/s6, rdb; 
b:"t, fchp, rtn; 

eag_dst : 

call INDSTORE, ace: -a; 
wrb:»b, bbus/sS, ip; 
fchp, irtn; 



eagjnpy: 
rdp. 



$orlgln 0x280$ 



♦JTAB entry for MPY 
♦JTAB entry for DIV 

♦JTAB entry for JLA 

* 

♦JTAB entry for DLD 
♦JTAB entry for DST 
♦JTAB entry for JLB 
♦JTAB entry for ASL and ASR 
♦JTAB entry for LSL and LSR 

♦JTAB entry for RRL and RRR 

* 

♦JL@ extension 

♦ load A or B with return address 

♦DLD continued 
♦read first word 

♦A := first word 
♦read second word 
♦B :" second word 

♦DST continued 
♦store first word (A) 
♦store second word (B) 
♦fchp, rtn 

♦MPY continued 
♦read DEF 
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0280 


ct:-acc+acc; 




*low 4 bits of ct := 14 


0281 


call INDREAD, 




♦indirect 


0281 


ace: -a; 




* 


0282 


nop:-t, Idq, 




*Q holds the multiplier 


0282 


dct; 




*low 4 bits of ct :- 13 


0283 


b:='tmpy(sO), Ip; 




*first multiply step 


0284 


mloop : 




♦Repeat 14 times: 


0284 


If not ctz4 goto 


mloop , 


* B,Q := IWo's complement multiply of 


0284 


b:=-tmpy(b); 




* of ACC and Q. (see 2903 specials) 


0285 


b:-tmlc(b); 




♦two's comp mult last step. 


0286 


a:=-q. 




*TWo's complement multiply never 


0286 


clo, 




* overflows. 


0286 


fchp, rtn; 




♦fetch... 


0287 








0287 


eag as@ : 




♦Arithmetic shift left or right 


0287 


nop: =0x0 200 and ct; 




♦ decode between left and right 


0288 


dct; 




♦synchronize count 


0289 


If not yz goto eag_ 


asr. 


* 


0289 


nop:=a, Idq; 




♦prepare for double word shift or normalize 


028A 








028A 


eag_asl : 




♦Arithmetic shift left 


028A 


aslloop: 




♦ Loop until ct is zero: 


028A 


If ctz4 goto asld 


lone. 


♦ double normalize (B,A) 


028A 


b:=dnrm(b); 




♦ and check 


028B 


if not cf goto aslloop. 


♦ for arlth overflow. 


028B 


ace : =b ; 




♦ remember b sign bit. 


028C 


aslovlp: 




♦ Overflow occurred in loop: 


028C 


If not ctz4 goto 


aslovlp. 


♦ finish 


028C 


b:=dnrm(b); 




♦ normalizing 


028D 


aslovfl: 




♦ set sign bit 


028D 


b:=b and Ox7fff; 




♦ correctly to opposite sign 


028E 


aee:-0x8000, bbus/ace; 


♦ of ace, which held the overnormalized 


028F 


if not bl5 then 




♦ value of b. 


028F 


b:-b ior ace; 




* 


0290 


fchp, a:-q, sto. 


rtn; 


♦ fetch, set o and rtn; 


0291 


asldone: 




♦ Overflow did not occur in loop: 


0291 


if not cf goto aslok, 


♦ though it 


0291 


acc:-b; 




♦ may have on exit. 


0292 


b:=b xor 0x8000; 




♦ correct sign bit. 


0293 


fchp, a:=q, sto. 


rtn; 


♦ end Instructioneturn. 


0294 


aslok: 




* 


0294 


fchp, clo. 




♦ but it didn't. 


0294 


a:-q, rtn; 




* 


0295 








0295 


eag^asr: 




♦Arithnetlc shift right instruction 


0295 


cmdw, elo; 




♦Set double word bit. 


0296 


asrloop: 




♦Loop until CTZ4: 


0296 


if not ctz4 goto asrloop. 


♦ decrement count, 


0296 


b:=arl(b); 




♦ arithaetic shift B and Q 


0297 


fchp. 




♦Fetch, 


0297 


a:=q. 




♦ replace A with Q 


0297 


rtn; 




♦ and end instruction 


0298 








0298 


eag_ls@ : 




♦Logical left or right shift instruction 


0298 


cmdw, ct:=ct+aee; 




♦ set DW, synch count 


0299 


nop: -0x0200 and sO 


> 


♦ decode between LSL and LSR 


029A 


if not yz goto eag 


_lsr. 


* 


029A 


nop: -a, Idq; 




♦ prepare for double word shift 


029B 








029B 


eag_lsl: 




♦LSL Instruction 


029B 


Islloop: 




♦Loop until CTZ4: 


029B 


if not etz4 goto 


Islloop, 


, ♦ decrement count. 


029B 


b:=lll{b); 




♦ logical left shift B and Q 


029C 


fchp, 




♦Fetch, 


029C 


a:-q. 




♦ replace A with Q 


029C 


rtn; 




♦ and end instruction 


029D 








029D 


eag_lsr: 




♦LSR Instruction 


029D 


Isrloop: 




♦Loop until CIZ4: 


029D 


if not etz4 goto 


Isrloop, 


, ♦ decrement count. 


029D 


b:-lrl(b); 




♦ logical right shift B and Q 


029E 


fchp. 




♦Fetch, 


029E 


a:-q. 




♦ replace A with Q 


029E 


rtn; 




♦ and end instruction 


029F 
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029F 

029F 

029F 

02A0 

02A1 

02A2 

02A2 

02A3 

02 A3 

02A3 

02A3 

02A3 

02A4 

02A4 

02A4 

02A5 

02A5 

02A5 

02A5 

02A5 

02A6 

02A6 

02A6 

02A7 

02A7 

02A7 

02A8 

02A9 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02C0 

02CO 

02C0 

2C0 

2CO 

02C0 

02CO 

02C0 

2C0 

O2C0 

CI2C1 

02C1 

CI2C2 

02C3 

CI2C4 

CI2C4 

02C5 

02C6 

02C7 

02C7 

02C8 

C)2C8 

()2C8 

02C9 

02C9 

02CA 

02CA 

02CA 

02CA 

02CA 

02CA 

02CB 

02CB 

02CC 

02CC 

02CC 



eag_rr@ : 

if ctz4 goto rri?_swap, 

sO:=ct; 
cmdw; 

nop: =0x0200 and sO; 
if not yz goto eag_rrr, 

nop : =a , Idq ; 

eag_rrl: 
rrlloop; 

if not ctz4 goto rrlloop, 
b:=»rll(b); 
fchp, 
a:=q, 
rtn; 

eag_rrr; 
rrrloop: 

if not ctz4 goto rrrloop, 
b:=rrl(b); 
fchp, 
a:=q, 
rtn; 

rrO_swap: 
a:-b, fchp; 
b:=sl, rtn; * 

eag_div: Malign 64$ 

{ 

integer divide continuation 
at entry: 

ace = divisor 

a = dividend lower 

b = dividend upper 
during execution: 

a = partial remainder (lower word) 

b = partial remainder (upper word) 

ace = holds divisor 

q = holds partial remainder (lower word) and quotient as 
developed 



*RRL and RRR instructions 

* if count is 16 (represented by 0) then 

* swap! 

* set double word bit 

* decocde between RRL and RRR 
* 

* prepare for double rotate 



*Loop until CIZ4: 

* decrement count, 

* rotate left B and Q 
*Fetch, 

* replace A with Q 

* and end instruction 

*Rotate right instruction 
*Loop until 0124: 

* decrement count, 

* rotate right B and Q 
*Fetch, 

* replace A with Q 

* and end instruction 

*special case for RRL and RRR: swap 



at exit 
ace 
a 
b 



- divisor 
= quotient 
= remainder 
o is set if overflow occurred 
q,acc,ct are used 



rdp , nop : =a , Idq ; 
call IHDREAIi, 

ct:-c:t+acc; 
82:-b xor t; 
8l:=b xor b, clo, ip; 
if not bl5 goto pr_pos, 

acc:"t ; 
a:» sl-a, stf, Idq; 
b:= not b + cf; 
if alov goto dlv_mneg, 

acc:"t ; 
pr_pos: 

if yz goto dlv_zero, 

80:-di7l(b); 
if sf goto dvr_neg, 

80:=div(sO); 

dvr_pos; 

{ 

divisor Is positive. 

} 

nop:=b-acc; 

if not yl5 goto div_ovfl, 
80:-.dlv(80); 
qp_rp_loop : 

if not ctz4 goto 
qp rp loop, 



13 



* 

*low 4 bits of ct 

*s2:=expected sign 

*sl:=zero, assume no overflow 

*make the partial remainder positive 

* 

*negate (b,a), f shows 

* that two quadrant fix occurred 
*lf most negative number then quit 
* 

* 

*lf divisor is zero then quit 

* generate quotient sign bit 
*if quotient sign bit is 1, then 

* divisor was negative 



*compare |dnd| - |dvr| (must be <0) 
*if quotient to be > 2**16 then 

* integer overflow will occur 
♦Repeat 

* division step 

* to form 
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02CC 


sO:=div(sO); 


02CD 


if sf goto qp rp check. 


02CD 


b:=lrl(sO); 


02CE 


b:-b lor 0x8000; 


02CF 


qp rp check: 


02CF 


if not yl5 goto dlv_done. 


02CF 


a:-q; 


02D0 


qp rp_rc: 


02D0 


b:-b+acc. 


02D0 


goto div_done; 


02D1 




02D1 


dvr neg: 


02D1 


{ 


02D1 


Divisor is negative. 


02D1 


} 


02D1 


nop:=b+acc; 


02D2 


if not yl5 goto div ovfl. 


02D2 


30:=div(E0); 


02D3 


qn rp loop: 


02D3 


if not ctz4 goto 


02D3 


qn_rp loop, 


02D3 


sO:»div(sO); 


02D4 


if not sf goto qn rp sgn. 


02D4 


b:=lrl(sO); 


02D5 


b:=b lor 0x8000; 


02D6 


qn_rp_sgn: 


02D6 


if not yl5 goto div_done. 


02D6 


a:=q+one; 


02D7 


qn rp re: 


02D7 


b:=b-acc. 


02D7 


goto div done; 


02D8 




02D8 


div_done: 


02D8 


if f then stor. 


02D8 


b:= sl-b; 


02D9 


if f then stor. 


02D9 


a:= sl-a; 


02DA 


nop:=a xor s2, fchp; 


02DB 


if not yl5 then rtn. 


02DB 


nop:=a; 


02DC 


if yz then rtn; 


02DD 


sto, rtn; 


02DE 




02DE 


div_zero: 


02DE 


div_mneg : 


02DE 


div_ovf 1 : 


02DE 


sto, fchp, rtn; 


02DF 




02DF 




02E0 





* full quotient 

*Flx remainder after shift of 

* last divide step. 
* 

*Check for remainder correction. 
* 

♦Remainder correction 



♦compare ldnd| - |dvr| (must be <0) 
*If quotient to be > 2**16 

* then integer overflow will occur. 
*Repeat 

* division step 

* to form 

* full quotient. 

*Fix remainder after it was shifted 

* during last divide step. 
* 

* 

*Need remainder correction? 

* (fix one's comp to two's comp) 
*Yes, do the remainder correction 



♦division is done, check results 
*two quadrant reverse: 

* ranainder 

* 

* quotient 

*is real quotient sign == dvr xor dnd? 

* y: then return 



n: if quotient is zero then OK 
n: set o and return 



♦division by zero or 

♦dividend = most negative number or 

♦quotient > 2^*16 

♦ set o and return 



MPARA source listing 

0000 MPARA; ♦extended instruction group macroinstructions <820204. 1550> 

0300 $origin 0x300$ ♦file - &EIG <820204. 1550> 

it******************************************************************** 

♦ (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

♦ No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written ♦ 

* consent of Hewlett Packard Company. * 
********************************************************************* 



0300 
0300 
0300 
0300 
0300 
0300 
0300 
0300 
0160 
0160 
0170 
0170 
0162 
0162 
0172 
0172 
0164 
0164 
0174 



*The following are entrypoints in the jumptable 
S@X: $origin 0x160$ *store @ indexed by 

goto s(?x_ext, rdp, ip, 80:=cxy; 
S@Y: $origin 0x170$ ♦store @ indexed by 

goto s@x_ext, rdp, ip, s0:=cxy; 
C@X: $orlgin 0x162$ 

cxy:"cab, fchp, rtn; 



C@Y: $origln 0x172$ 
cxy:-cab, fchp, rtn; 

L@X: $origln 0x164$ 
goto l@x_ext, rdp, ip; 

L@Y: $origin 0x174$ 



♦copy @ to X 
♦copy @ to y 
♦load @ Indexed by 
♦load @ Indexed by 
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0174 

0166 

0166 

0176 

0176 

0168 

0168 

0178 

0178 

016A 

016A 

017A 

017A 

016C 

016C 

017C 

017C 

016E 

016E 

017E 

017E 

0161 

0161 

0171 

0171 

0163 

0163 

0173 

0173 

0165 

0165 

0175 

0175 

0167 

0167 

0177 

0177 

0169 

0169 

0179 

0179 

016B 

016B 

017B 

017B 

016D 

016D 

017D 

017D 

016F 

016F 

017F 

017F 

0180 

0180 

0150 

0150 

0150 

0151 

0151 

0152 

0152 

0153 

0154 

0155 

0155 

0156 

0156 

0157 

0157 

0158 

0159 

0159 

015A 

015B 



goto iC'x ext , rdp, Ip; 
SIX: $oi:lgin 0x166$ *store X 

goto stxext, rdp, ip; 
STY: $oi:lgln 0x176$ *store Y 

goto stx ext, rdp, ip; 
CX@: $oi:lgin 0x168$ *copy X to @ 

cab:=cjcy, fchp, rtn; 
CY@: $origin 0x178$ *copy Y to @ 

cab:=cxy, fchp, rtn; 
LDX: $origin 0xl6a$ *load X 

goto Idx ext, rdp, ip; 
LDY: $orlgln 0x1 7a$ *load Y 

goto Idx ext, rdp, ip; 
ADX: $origln 0x1 6c$ *add to X 

goto adx ext, rdp, ip, s0:"cxy; 
ADY: $origin 0x1 7c$ *add to Y 

goto adx ext, rdp, ip, s0:=cxy; 
X@X: $origin 0x1 6e$ *exchange @ and X 

goto x@x_ext, s0:=cxy; 
X@Y: $orlgin 0xl7e$ *exchange @ and Y 

goto x@x_ext, s0:=-cxy; 
ISX: $origln 0x161$ *increment X and skip if zero 

goto isx_ext, cxy :"cxy-acc; 
ISY: $origin 0x171$ *increment Y and skip if zero 

goto isx_ext, cxy :=cxy-acc; 
DSX: $orlgin 0x163$ *decrement X and skip if zero 

goto isx_ext, cxy : =cxy+acc ; 
DSY: $orlgin 0x173$ *decrement Y and skip if zero 

goto isx_ext, cxy:"cxy+acc; 
JLY: $orlgin 0x165$ 

goto jly_ext, rdp, ip; 
JPY: $orlgin 0x175$ 

goto jpy_ext, rdp; 



LBT: $origin 0x167$ 

goto EIG_LBT, acc:=b-acc; 
SBS: $orlgin 0x177$ 

goto EIG_SBS; 
SBT: $orlgin 0x169$ 

goto EIG_SBT, s5:=-p; 
CBS: $origin 0x179$ 

goto EIG_CBS; 
MBT: $origin 0x1 6b$ 

goto EIG_MBT; 
TBS: $origin Oxl7b$ 

goto EIG_TBS; 
CBT: $origin 0x1 6d$ 

goto EIG_CBr; 
CMW: $orlgin 0x1 7d$ 

goto EIG_CMW; 
SFB: $origin 0x1 6f$ 

goto EIC_SFB, s3:=p-acc; 
MVW: $origin 0x1 7f$ 

goto EIC_MV1J; 



*jump and load Y 
*jump to Y + DEF 
*load byte 
*set bits 
*store byte 
*clear bits 
*move bytes 
*test bits 
♦compare byte 
♦compare vrord 
*scan for byte 
*move words 



♦The following are extensions residing in the Jumptable 
$origin 0x150$ 
s@x_ext : 

call INDRSOLV, ace: "cab; 

wrb;"acc, bbu8/87, 
goto fchrtn; 
l@x_ext : 

call INDRSOLV, sO:-cxy; 

rdb, bbus/87; 

cab:-t, fchp, rtn; 
8tx_ext: 

call INDSTORE, ace: -cxy; 
fchrtn: 

fchp, rtn; 
ldx_ext : 

call INDREAD; 

cxy:=t, fchp, rtn; 
adx_ext : 

call INDREAD, BO:=cxy; 

cxy:-sO+t, fchp, rtn, enoe; * 
x@x ext: *X@X or X@Y 



*S@X or S@Y 

* resolve address 

* store A or B at resolved address 
* 
*L@X or L@Y 

* resolve address 

* load A or B from resolved address 
* 
*STX or STY 

* store X or Y at resolved address 

*LDX or LDY 

* load X or Y from memory 

* 

*ADX or ADY 

*XorY :=XorY plus memory 
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015B 

015C 

015D 

015D 

015E 

015F 

015F 

0160 

0300 

0300 

0300 

0300 

0301 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0303 

0303 

0304 

0304 

0305 

0305 

0306 

0306 

0306 

0307 

0307 

0307 

0307 

0308 

0308 

0309 

0309 

0309 

030A 

030A 

030B 

030C 

030C 

030C 

030C 

030D 

030D 

030D 

030D 

030D 

030D 

030D 

030D 

030D 

030D 

030D 

030E 

030F 

030F 

030F 

030F 

0310 

0310 

0311 

0311 

0312 

0313 

0314 

0314 

0314 

0315 

0315 

0315 

0316 



cxy:=cab, fchp; 

cab:=s0, rtn; 
jpy_ext : 

call INDRSOLV, s0:-y; 

p:=s7, fchb, rtn; 
jly_ext : 

goto INDJMP, y:=p; 

elg_contlnued : $origln 0x300$ 



* exchange A or B with X or Y 
* 

*JPY 

* jump to Y plus resolved DEF 

* 

*JLY 

* jump and load Y 



lsx_ext : 

If yz then Ip; 
fchp, rtn; 

EIG_MVW: 
{ 

Move words macroinstructlon 
} 

call EIG_SETOP, 
elf, 

rdp, s5;»p-acc; 
if ctz goto mvw_quit, 

p:-b; 
goto mvw_enter, 
a:=a-acc; 
mvw_loop: 

rdb, a:=a-acc; 
mvw_enter : 
b:=b-acc, 

if intp goto mvw_intp; 
wrp:"t, 
ip, 

if not ctz goto 
mvw_loop; 
mvw quit: 

p:-s5; 
mvw_end : 

wrp:=ct+one, 

ip; 

mvw_endx : 

if not yz then p:-fa; 
fchp, rtn; 
mvw_intp: 
wrp:-t, 
dct, 
goto mvw quit; 



*ISX or ISY 

* increment X or Y, skip if zero 



*call setup routine, 

* F shows that I'm a word routine 

* read def (move count) 
*ls count zero? 

*load array2 address 
* 

*move words loop: 

Read A and increment A 
(entry to loop) 
increment B 

if Interrupts then branch 
address 

address 
of loop 



write to "to" 
increment "to" 
check for end 



* 
* 

* 
* 

*quit: 

* load P with reserved word location 

* 

* write count residue in reserved word 

* increment P to next opcode 

* 

* if residue not zero then P-reset opcode 

* fetch... 
♦interrupt: 

* write to "to" address, goto quit 

* count would have been decremented in loop 



EIG_CMW: 
{ 

Compare words macroinstructlon 
M[a], M[b] " memory arrays 
a,b = memory addresses 
} 

call EIG_SE1UP, 
elf, 
rdp, 

s5:=p-acc; 
if ctz then goto mvw quit; 
cmw_l oop : 

if intp goto mvw_quit, 
sO:-t, 

ip; 

rdb, 

b:»b-acc; 
if ctz goto cmw_done, 

a:"a-acc; 
a2;-s0-t, rdp; 
if yz goto cmw_loop; 
cinw_neq : 

if alov call cmw_alov, 

p:-85; 
cmw_check ; 

wrp:-s2 xor s2, 

ip; 

if not bl5 call cmw skip. 



*Call the WORD and BYTE setup routine 

*CLF to tell EIG_SETOP that I'm a word routine 

*Read DEF MOVE COUNT 

*save the RESERVED WORD address 

*was the count zero? yes; then quit now 

*CCMPARE WORDS LOOP: 

* interrupts? yes: then quit loop 
save M[a] 
increment 
read M[b] , 
b:-b+l 

is count zero? yes: then quit loop 
b:-b+l 

compare M[a] and M[b] 
if equal then LOOP 

*NOT EQUAL 

* should have done two's complement compare 

* p - reserved word address 
♦DETERMINE NUMBER OF SKIPS 

* write zeros into reserved word 

* increment to next opcode 

* add a skip if M[a] > M[b] 
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0316 

0316 

0317 

0317 

0318 

0318 

0318 

0319 

031A 

031A 

03 IB 

03 IB 

03 IB 

031C 

031C 

031D 

03 ID 

031D 

031D 

031E 

03 IE 

031E 

03 IF 

03 IF 

031F 

0320 

0320 

0320 

0320 

0321 

0321 

0321 

0322 

0323 

0324 

0324 

0324 

0324 

0324 

0324 

0324 

0324 

0324 

0324 

0325 

0326 

0327 

0327 

0328 

0328 

0328 

0328 

0328 

0328 

0328 

0328 

0328 

0329 

032A 

032A 

032A 

032B 

032B 

032B 

032C 

032C 

032C 

032D 

032D 

032D 

032E 

032E 

032E 

032F 

032F 



a:=a+acc, 

ip; 

b:=b+ct:+one, 
fchp, rtn; 

cmw_d one : 
s2:=s0-t; 

if not yz goto cmw_neq; 
goto m^/v end, 
p;=s!5; 

cmw_alov: 

s2:=not s2, rtn; 

cmw_skip: ip, rtn; 

EIG_SE'roP: 

call INDREA15, 

p:=p-acc; 
ct:-t, 

rdp, 

if f goto setup_byte; 
p:=a, 

elf, 

goto setup_continue; 
setup_byte: 
p:=lrl(a), 

elf, 

goto setup_continue; 
setup continue: 
s7:=t, 

rdp; 
if yz then rtn; 
ct:=s7, rtn; 



EIG_MBT: 

{ 

Move bytes inacroinstruction 

} 

call EI(;|_SETOP, 

stf, 

rdp, 

s5:-p-ace; 
if ctz goto mvw_quit; 
call MOVE_BYTES; 
goto ni.vw_end, 

p : "s 5 ; 



* decrement A to point to not equal address 

* increment for M[a] <> M[b] 

* b:=original b + count 

* that's all 
* 

♦REACHED END OF COUNT 

* but must do the very last count 

* M[a] <> M[b] ?? 

* no: end Just like move words 

* set p to reserved word address 
* 

*MUST FIX FOR 2's COMP compare 
*toggle sense of compare If alov 
* 

*SKIP FOR M[a] > M[b] 



♦SETUP ROUTINE FOR MVW,CMW,MBT,CBT 

* indirect on count 

increment p to reserved word 

ct:=COUNT 

read reserved word 

set up for CMW,MVW or CBT.MBT 

load p with M[a] word address 

cleared for later use(?) 



load p with M[b] word address 
cleared for later use(?) 



look at reserved word 

* begin read of M[a] (word or byte) 

* if reserved word is zero then return 

* (this assumes that reserved word cannot 

* be zero when count is zero! 
* 



*call the setup routine 

* F shows that I'm a byte routine 

* begin read of DEF COUNT 

* s5:=RESERVED WORD ADDRESS 
*lf count is now zero then quit 

*until count is zero or interrupt: MOVE BYTES 

*mvw_quit will handle writing into NOP 

* 



EIG_CBT: 

{ 

Compare bytes macroinstruction 

} 

call EIG_SETOP,, 
stf, 
rdp, 

s5:"p-aec; 
If ctz goto mv\j_quit; 
cb_loop: 

if sf goto cb_blodd, 
a:=a+one; 
cb_bleven; 
p:-lrl(b), 

if intp call cb_flag; 
s0:-swzu(t) , 
rdp, 

goto i:;b_b2; 
cb_blodd: 
p:-lrl(b), 

if intp call cb_flag; 
sO;-zuy(t) , 
rdp„ 

goto tib_b2; 
cb_b2: 

if sf goto cb b2odd. 



*eall the setup routine 

* F shows that I'm a byte routine 

* begin read of DEF 

* s5:»RESERVED WORD ADDRESS 
*if count is now zero then quit 
♦CaiPARE BYTES LOOP: 

* BRANCH ON STRINGl ODD OR EVEN 

* increment stringl address 

* STRINGl EVEN 

* p gets string2 word address 
* 

* save stringl byte 

* begin read of string2 
* 

* SIRINGl ODD 

* p gets stringl word address 
* 

* save string2 byte 

* begin read of strlng2 
* 

* BRANCH ON STRING2 ODD OR EVEN 
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032F 


b : =b+one ; 


* increment string2 address 


0330 


cb b2even: 


* S'IRING2 EVEN 


0330 


p:-lrl(a). 


* p gets strlngl word address 


0330 


if ctz call cb_flag; 


* check for count zero 


0331 


acc:=swzu(t) , 


* save strlng2 byte 


0331 


rdp, 


* read strlngl 


0331 


goto cb compare; 


* 


0332 


cb b2odd: 


* STRING2 ODD 


0332 


p:=lrl(a). 


* p gets strlngl word address 


0332 


if ctz call cb_flag; 


* check for count zero 


0333 


acc:=zuy(t). 


* save strlng2 byte 


0333 


rdp. 


* read strlngl 


0333 


goto cb_compare; 


* 


0334 


cb compare: 


* COMPARE STRlNGl[a] to S'miNG2[b] 


0334 


s2:=s0-acc. 


* set conditions 


0334 


if f goto cb_qult; 


* look for ctz or intp flag 


0335 


If yz goto cb loop. 


* if not equal then loop 


0335 


acc:=ones; 


* 


0336 


goto cmw check. 


* to be completed in CMW code 


0336 


p:=s5; 


* 


0337 


cb quit: 


* CTZ or INIP HAPPENED 


0337 


if not yz goto cbt check. 


* do last compare 


0337 


p:=s5; 


* 


0338 


goto mvw endx. 


* to be completed in MVW code 


0338 


wrp:=ct+one, 


* write count in reserved word 


0338 


ip; 


* increment p to next opcode 


0339 


cb_flag: 


*SET FLAG DUE TO CIZ OR INTP 


0339 


stf, rtn; 


* 


033A 


cbt_check: 


* 


033A 


goto cmw check, acc:=ones 


* 


033B 






033B 


EIG_LBT: 




033B 






033B 


Load A with the byte address in B 


033B 






033B 


sO:=lrl(b); 


♦convert to word address 


033C 


rdb, bbus/sO, 


*read word 


033C 


b : =acc , 


*load incremented b value 


033C 


if sf goto Ibt rbt; 


* is it right byte or left byte? 


033D 


lbt_lbt: 


*Left byte 


033D 


a:=swzu(t), fchp, rtn; 


* that's all 


033E 


lbt_rbt: 


*Right byte 


033E 


a:=zuy(t), fchp, rtn; 


* that's all 


033F 






0340 


EIG_SBT: $allgn 64$ 




0340 






0340 


Store A into the byte spe 


cifled by B 


0340 






0340 


p:=lrl(b); 


♦convert to word address 


0341 


spl/rdp. 


*read byte address 


0341 


b:=b-acc, 


*b:=b+l 


0341 


if sf goto sbt rbt; 


♦left byte or right byte? 


0342 


sbt_lbt : 


♦left byte: 


0342 


sO:»swzl(a) ; 


♦ save new byte 


0343 


8l:=zuy(t), 


♦ save old byte 


0343 


goto sbt end; 


* 


0344 


sbt_rbt : 


♦right byte: 


0344 


sO:-zuy(a); 


♦ save new byte 


0345 


sl:=zly(t). 


♦ save old byte 


0345 


goto sbt end; 


* 


0346 


sbt_end: 


* 


0346 


wrp:=sO ior si; 


♦write new and old byte into memory 


0347 


fchb, p:=s5, rtn; 


♦restore program counter and that's all 


0348 






0348 


EIG CBS: 




0348 


{ 




0348 


CBS clear bits specified 


by "l"s in mask 


0348 


DEF MASK 




0348 


DEF WORD TO MODIFY 




0348 


} 




0348 


rdp. 


♦read DEF 


0348 


call bits_setup; 


♦ get mask in sO and word read in prog 


0349 


p:=ma; 


♦wasted cycle (load up p with word addr 


034A 


wrp:»t and not ace; 


♦write clear bits in memory 


034B 


cbs continue: 


* 
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034B 

034C 

034D 

034D 

034D 

034D 

034D 

034D 

034D 

034D 

034D 

034E 

034F 

034F 

0350 

0350 

0350 

0350 

0350 

0350 

0350 

0350 

0350 

0351 

0352 

0353 

0354 

0354 

0354 

0354 

0355 

0355 

0355 

0356 

0356 

0357 

0357 

0357 

0357 

0357 

0357 

0357 

0357 

0357 

0358 

0359 

035A 

035A 

035A 

035B 

035B 

035C 

035C 

035C 

035D 

035D 

035D 

035E 

035E 

035E 

035F 

035F 

0360 

0360 

0361 

0361 

0362 

0362 

0363 

0363 

0363 

0364 

0364 

0364 

0364 



p:=fa-h3; 
fchp, rtn; 

EIG_SBS: 
{ 

SBS set bits specified by 

DEF MASK 

DBF WORD TO MODIFY 



} 



rdp, 

call 
p:»ma ; 
wrp:=t 



blt3_setup; 
lor ace. 



goto cbs continue; 

EIG_TBS: 
{ 

TBS test bits specified by 

DEF MASK 

DEF W0ED_T0_TEST 

} 

rdp, 

call bits_setup; 
nop:-sl inor t; 
if not yz then ip; 
fchp, rtn; 

bits_setup: 
call INDREAD, 

p:=p-acc; 
acc:-t, 

rdp, 

ip; 

goto INDREAD, 
si:" not ace; 

EIG_SFB: 
{ 

Scan for byte 
A - hi byte: term byte 
lo byte: test byte 
B = byte address 
} 

sO:=zuy(a) ; 
sl:=swzu(a); 
s2:=lrl(b); 
s fb_l oap ; 
rdb, 

s4:»s2 xnor s2; 
if sf goto 8fb_rbt, 
b:=b+one; 
sfb_lbt: 

acc:-swzu(t) , 

goto sfb_contlnue; 
sfb_rbt : 

acc:=zuy(t) , 

goto sfb_contlnue; 
sfb_continue: 
nop:"sO xor ace, 

if intp goto sfb_lntp; 
if yz goto sfb_eq, 
nop:=sl xor ace; 
if not yz goto sfb_loop, 
s2:-lrl(b); 
sfb_terni: 

fchb, p:'"s3, rtn; 
s fb_int p : 
p:=-fa; 
8fb_eq: 
fchp, 

b:=b+s4, rtn; 

MOVE_BYTl!:S: 
mb_loop: 

if sf goto mb blodd. 



*set P to next opcode 
*fetch and return 



'l"s in mask 



*read DEF 

* get mask in sO and vrord read in progress 

*wasted cycle (load up p with word address) 

*set bits in memory 

*end just like CBS 



"1"b in mask and skip if any are zero 



*read DEF 

* get mask in sO and word read in progress 

*test (all bits tested must be "l"s) 

*if all are not zero then skip 

*fetch and return 

*bit instruction setup routine 

*resolve indirects for mask 

*increment p 

*save mask 

*read word 

♦increment p to next opcode location 

*resolve indirects for word 

*save negated form of mask 



*sO = test byte 

*sl = term byte 

*s2 = word address 

*LOOP 

*read word containing byte 

* s4;-ones 

*which byte? 

♦increment byte address 

*LEFT BYTE 

*get left byte 

* 

*RIGHT BYTE 
*get right byte 

♦compare byte and test byte 

♦interrupt? 

♦equal test byte? 

♦compare byte and term byte 

♦equal term byte? 

* 

♦FOUND TERMINATION BYTE 

♦skip 

♦INTERRUPTED 

* 

♦FOUND TEST BYTE 

♦no skip 

♦back up the byte address 

♦DOES NOT SUPPORT RRR 

♦LOOP 

♦is stringl address even or odd? 
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0364 


p:=lrl(b); 


0365 


mb_bleven: 


0365 


s0;=swzu(t) , 


0365 


rdp, 


0365 


goto mb_b2; 


0366 


mb_blodd: 


0366 


sO:=zuy(t), 


0366 


rdp, 


0366 


goto mb b2 ; 


0367 


mb_b2: 


0367 


a : =a+one ; 


0368 


if sf goto mb_b2odd, 


0368 


b:=W-one; 


0369 


mb_b2even : 


0369 


s0:-swzl(s0); 


036A 


acc:=zuy(t), 


036A 


goto mb_vnrlte; 


036B 


mb_b2odd : 


036B 


acc:=zly(t), 


036B 


goto mb write; 


036C 


mb_write: 


036C 


wrp:=acc ior sO, 


036C 


if ctz then rtn; 


036D 


sl:=lrl(a), 


036D 


if intp then rtn; 


036E 


mb_enter : 


036E 


goto mb_loop, 


036E 


rdb, bbus/sl; 


036F 




036F 




0370 





♦increment strlngl address 
*STRING1 ADDRESS EVEN 
*align and mask stringl byte 
*begin read of string2 
* 

*STRING1 ADDRESS ODD 

*align and mask stringl byte 

*begln read of string 2 

♦increment stringl address 
*is string2 address even or odd? 
♦increment string2 address 
♦STRING2 ADDRESS EVEN 

* 

♦align and mask strlng2 byte 

* 

♦SraiNG2 ADDRESS ODD 

♦align and mask string2 byte 

* 

♦insert stringl byte and write word to memory 

♦is count zero? 

♦create stringl word address 

♦are interrupts pending? 

* 

♦goto LOOP 

♦ begin read of stringl 



Define better names for the internal register used for holding 
floating point operands. 



FIM 
FlL 
FIX 
F2M 
F2L 
F2X 
F3M 
F3L 
F3X 



sO 
si 
s2 
s3 
s4 
s5 
A 
B 
s6 



MPARA source listing 

0000 MPARA; ♦FP single precision <820204. 1550> 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0190 

0190 

0190 

0191 

0191 

0191 

0192 

0192 

0192 

0193 

0193 

0193 

0194 

0194 

0195 



the 



Flx,F2x,F3x refer to floating point operands 

1 (generally taken from A and B) 

2 (retrieved from memory pointed to by DEF) 

3 (result returned to A and B registers) 
FxM = most significant word of mantissa 
FxL " low byte of mantissa in high byte of register 
FxX = 2s comp representation of exponent 



} 

$deflne abus/FlM 010$ $deflne bbus/FlM 010$ $deflne stor/FlM 010$ 

$define abus/FlL 011$ $define bbus/FlL 011$ $define stor/FlL 011$ 

$deflne abus/FlX 012$ $define bbus/FlX 012$ $define stor/FlX 012$ 

$define abus/F2M 013$ $deflne bbus/F2M 013$ $deflne stor/F2M 013$ 

$deflne abus/F2L 014$ $deflne bbus/F2L 014$ $define stor/F2L 014$ 

$define abu8/F2X 015$ $define bbus/F2X 015$ $define stor/F2X 015$ 

$define abus/F3M 000$ $deflne bbus/F3M 000$ $define 8tor/F3M 000$ 

$define abu8/F3L 001$ $deflne bbus/F3L 001$ $deflne stor/F3L 001$ 

$deflne abus/F3X 016$ $define bbus/F3X 016$ $deflne stor/F3X 016$ 



FAD: $orlgin 0x190$ 
goto FPS_FAD, 
FlM:-a; 
FSB: $origin 0x191$ 
goto FPS_FSB, 
FlM:-a; 
FMP: $origin 0x192$ 
goto FPS_FMP, 
FlM:-a; 
FDV: $origln 0x193$ 
goto FPS_FDV, 
FlM:-a; 
FIX: $orlgin 0x194$ 

goto FPS_FIX; 
FLT; $origin 0x195$ 
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0195 

0196 

0403 

0403 

0403 

0403 

0403 

0404 

0404 

0405 

0405 

0406 

0406 

0406 

0406 

0407 

0407 

0408 

0408 

0409 

0409 

0409 

0409 

040A 

040A 

040B 

040B 

040C 

040C 

040C 

040C 

C40D 

040D 

040E 

040E 

040F 

040F 

040F 

040F 

040F 

040F 

040F 

040F 

040F 

040F 

04 OF 

040F 

040F 

040F 

040F 

040F 

040F 

040F 

04 OF 

040F 

040F 

0410 

0411 

0411 

0412 

0413 

0413 

0413 

0414 

0415 

0415 

0415 

0416 

0416 

0417 

0417 

0417 

0418 

0418 

0418 



goto FP<;_FLT; 
$origln 0>:403$ *begln FPS group 



*floatlng point add 



♦floating point subtract 



FPS_FAD: 

call FPS_UNPACK, 

rdp, acc:=zly(acc) ; 
call FPS_ADD, 

acc:-FlX; 
goto FPS_END, 

ct:=F3X; 

FPS_FSB: 

call FPK_UNPACK, 

rdp, acc:=zly{acc) ; 
call FP;;_SUB, 

ace: -FIX; 
goto F'PE_END, 

ct:=F3X; 

FPS_FMP: 

call FP<;_UNPAC1C, 

rdp, acc:=zl3Kacc) ; 
call F'P!S_MPY, 

ct :=ones; 
goto F'PS_END, 

ct:=F3X; 

FPS_FDV: 

call I'PSJUNPAac, 

rdp, acc:=zly(acc) ; 
call FPS_DIV, 

ct :=ories; 
goto FPS_END, 

ct:=F3X; 



FPS_UNPA.CK: 
{ 

Floating Point Single precision unpack 

Fl is the floating point operand in B and A 

F2 is the floating point operand in memory pointed to by DEF 

Upon entry; 

P = DEF location and read of DEF in progress 

FIL has been loaded vrlth low 8 bits of mantissa (low byte = 0) 
Upon exit: 

FIM = most significant bits of Fl mantissa 

FIL = least significant 8 bits of Fl mantissa (low byte = 0) 

FIX = Fl exponent (full 16 bit 2s complement number) 

F2M = most significant bits of F2 mantissa 

F2L = least significant 8 bits of F2 mantissa (low byte = 0) 

F2X = F2 exponent (full 16 bit 2s complement number) 

double word bit set 

P = next opcode location 



♦floating point multiply 



*?can cut a cycle using later dcts 



♦floating point divide 



} 



call INDREAD, 

FlL;:=b and ace; 
nop:=lrl(b) ; 

iP. 

F2M:=C; 
bbus/si6, rdb; 



♦Resolve indirection (may abort instruction) 

*FlL:-b and OxffOO 

*SF = sign of Fl exponent 

♦Point P to next opcode 

♦Load F2M 

♦ (begin read of 2nd wd op2) 



then and zeros onto FIX 



if not sf goto flunpack, *lt exponent is positive 
FlX:: = rrl(b and 
not ace); 
FlX:-rrl(b lor ace); 



f lunpaeked: 
nop:=lrl(t); 
if not sf goto f2xpos, 

F2L;;=Kly(t); 
rtn, 

F2X:;=rrl(t ior ace), 

cmdw ; 
f 2xpos: 

F2X:=irrl(t and not ace), 

rtn, 



* 

lit 

♦if exponent is negative 

♦ then ior ones onto FIX 
♦Fl is now unpacked 

♦TWOS comp fix of oprnd2 exponent: 
♦if exponent is positive 

♦ then and zeros onto F2X 
♦if exponent is negative 

♦ then ior zeros onto F2X 

* 
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0418 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

0419 

041A 

041B 

041B 

041B 

041B 

041B 

041C 

041D 

041D 

041E 

041E 

041F 

041F 

041F 

0420 

0421 

0422 

0422 

0422 

0423 

0424 

0424 

0424 

0424 

0424 

0424 

0424 

0424 

0425 

0426 

0426 

0427 

0428 

0428 

0428 

0429 

0429 

0429 

0429 

042A 

042A 

042A 

042B 

042B 

042B 

042C 

042D 

042D 

042E 

042E 

042E 

042F 

0430 

0430 



cmdw ; * 

FPS_DIV: 
{ 

Divide Fl by F2 and put result In F3 
Use following approximation: 
Fl Fl F2L 

~= - Q * == F3M + F3L 

F2 F2M F2M 

where Fl = FIM + FIL (32 bit dividend) 
F2 = F2M + F2L (32 bit divisor) 
F3 = F3M + F3L (32 bit quotient) 
Q = first approximation at F3M = F1/F2M 

Answer may be +/- one isb (of the resulting 24-blt mantissa) 



Determine the exponent. 

F3X:=F1X-F2X; 
F3X: -F3X+one ; 



*Exponent is the difference, plus one due 
* to overflow-prevention shift 



Form quotient based on Fl divided by F2M only. 



} 
dct, 

nop:-FlL, Idq; 
FlM:=arl(FlM); 
acc:=F2M, 

if yz goto fdv_flz; 
FlM:=dlvl(FlM), 

if yz goto fdv_zero; 
dlvl: 

if not ctz4 goto dlvl, 

FlM:=dlv(FlM); 
F3M:=q; 

s7:=zero, Idq; 
dlv2: 

if not ctz4 goto dlv2, 

FlM:=dlv(FlM); 
F3L:-q; 



*ct = 14 (low four bits) 

*Arith shift Fl one place to prevent ovfl 

* 

*acc = F2M = divisor 

*(must special case Fl = zero and F2 neg) 

*form sign bit 

* 

*L00P 

* do 15 times: 

* form quotient bit 

*save upper quotient (first shot) 

*zero lower dividend (save zero for later) 

*L00P 

* do 16 times: 

* form quotient bit 

*save lower quotient (first shot) 



{ 



Adjust for F2L 

(F2L/4)/F2M is the quotient adjustment 



FlL:=zero, Idq, 

dct; 
F2L:=lrl(F2L); 
F2L:=lrl(F2L), 

if yz goto skipadjust; 
F2L:=divl(F2L); 
div3: 

if not ctz4 goto dlv3, 

F2L:=div(F2L); 



*low bits of dividend equal zero 
*F1L being zero is used later 
*ct = 14 (low four bits) 

* these steps prevent overflow 

* and allow full four-quadrant divide 

*do first divide step 
*L00P 

* do 15 times: 

* form quotient bits 

*At this point, a remainder correction need not be done because the 
*total answer is +/- one LSB. 



dct, 

acc:-F3M; 
div4: 

If not ctz4 goto div4, 
s7:=tmpy(s7); 
skipadjust: 

acc:=tmlc(s7) , 

cmdw; 
ace :"lll(acc+acc) ; 
if sf goto fdv_carry, 
acc:-lll(acc) ; 
fdv_borrow: 

if sf then fcin, 

F1L:=F1L; 
F3L:=F3L-acc, Idq; 
F3M:=F3M-FlL-br, 
cmdw. 



*ct =■ 14 (low four bits) 

*load multiplier (s7 is partial product) 

*L00P 

* do 15 times: 

* form product bit of [ (F2L/4)/F2M) ]*F3M 
* 

*adjust for sign 

*turn off double word bit 

*mpy adjustment by 4 (because of "F2L/4") 

♦branch on sign of adjustment 

*mpy adjustment by 2 (tmlc does extra shift) 

♦BORROW CASE 

*check for double borrow 

*(set FIL to 1 if double carry possible) 

♦subtract adjustment from final quotient 

♦subtract borrow (FIL = or 1) 

♦turn on double word bit 
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0430 

0431 

0431 

0431 

0432 

0433 

0433 

0433 

0434 

0434 

0435 

0436 

0436 

0436 

0437 

0438 

0438 

0438 

0438 

0438 

0438 

0438 

0438 

0439 

0439 

0439 

0439 

043A 

043A 

043B 

04 3C 

043C 

043C 

043D 

043E 

043E 

043E 

043E 

043E 

043E 

043F 

043F 

0440 

0441 

0441 

0441 

0442 

0443 

0443 

0444 

0444 

0444 

0444 

0444 

0444 

0445 

0446 

0447 

0447 

0447 

0448 

0448 

0449 

0449 

044A 

044A 

044B 

044B 

044B 

044C 

044C 

044C 

044D 

044D 

044E 



rtn; 
fdv_carry : 

if not sf then fcln, 

F1L:"F1.L; 
F3L:-F:iL-acc, Idq; 
F3M:=F3M+FlL+cf, 

cmdw , 

rtn; 
fdv_zero;; 

F3X:-0xll''FF; 
F3M:-lrl(ones), rtn; 
fdv_flz: 
F3M:«zero, 

If yz goto fdv_zero; 
F3L:-zi>ro, rtn; 



♦CARRY CASE 

*check for double carry 

*(set FIL to 1 if double carry possible) 

♦subtract adjustment from final quotient 

*add carry (FIL - or 1) 

*turn on double word bit 

* 

♦divide by zero 

♦make exponent ou^ of range to force 

♦overflow in fps_pack 

* 

♦special case for zero/negative num 

♦ (but if dvr was zero, then take 

♦ that route) 



FPS_MPY: 

{ 
Multiply Fl by F2 and put result in F3 

} 



F3X:-F1X + F2X 
+one; 



♦exponent is sum of exponents plus 
♦one due to extra shift by "tmlc" 



Calculate F3L :=- (F2L/2)^F1M (most significant bits) 

} 

acc:=lrl(F2L); 

F3L:-zero, 

if yz goto fmullskip; 

nop:=FlM, Idq, dct; 
fmul 1 : 

if not ctz4 goto fmull, 
F3L:-tmpy(F3L); 

F3L:»tmlc(F3L); 
fmullskip: 



♦form F2L/2 

♦load partial product 

♦if F2L zero then skip multiplication 

♦load multiplier into q 

* 

♦Loop: 

♦ F3L := (F2L/2)^F1M 

♦ take care of sign bit 
* 



Calculate F3L :- (F1L/2)^F2M (most significant bits) 



acc:=lrUFlL); 

FlL:=zero, 

if yz goto fmul2skip; 

nop:-F2M, Idq, dct; 
fmul 2: 

if not ctz4 goto fmul2, 
FlL:-tmpy(FlL); 

FlL:=tmlc(FlL); 
fmul 2 skip: 

F3L:=F3L+F1L; 



♦form FlL/2 

♦load initial partial product 
♦if FIL is zero then skip 
♦load multplier into q 

* 

♦Loop: 

♦ FIL := (F1L/2)^F2M 

♦ take care of sign bit 
* 

♦if so then carry-in 

♦no need to worry about alov here. 

♦ worst case is 8000^7FFF-C0008000 



Calculate F1M^F2M (most significant bits and least significant bits) 



acc:-FlM; 

nop:=F2M, Idq, dct; 
F3M:-2ero; 
fmul 3: 

if not ctz4 goto fmul3, 

F3M:-tmpy(F3M); 
F3M:=-tmlc(F3M), 

cmdw; 
acc:-lll(F3L), 

cmdw; 



♦load multiplicand 
♦load multplier 
♦zero partial sum 

* 

♦Loop : 

♦ F3M:=F1M^F2M 

♦ take care of sign bit 
♦turn off DW 

♦align low bits for addition 

♦turn on DW 

♦add all low bit partial products 



F3L:-q+acc, Idq, 

if af goto finul_borrow; ♦is sum negative? 

fmul_carry: ♦carry: 

F3M:»F3M+cf , ♦propogate carry 

rtn; ♦ and return 

fmul_borrow: ♦borrow: 

if cf then rtn, ♦is borrow necessary? no: return 

acc:-zero; ♦ 

F3M:-;F'3H-acc-one, ♦yes: do a borrow, 

rtn; ♦ 



E-36 



Appendix E 



044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044E 

044F 

0450 

0451 

0452 

0452 

0453 

0454 

0454 

0455 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0456 

0457 

0458 

0459 

045A 

04 5A 

04 5B 

045C 

045C 

045C 

045C 

045C 

045C 

045C 

045C 

045C 

045C 

04 5C 

045C 

045C 

04 5C 

045C 

045C 

045C 

045C 

045C 

045C 

045C 

04 5C 

045D 

045D 

045E 

045E 

045F 



call fps_adjust, 

ct;=-acc-F2X; 
F3L:-F1L+F2L, Idq; 
F3M:»FlM+F2M+cf , elf; 
if not alov then rtn; 



FPS_ADD: 

{ 

Add Fl to F2 and store Into F3 
Upon entry: 
ace = FIX 
F3M = F3M 
F3L - F3L 
F3X - F3X 
Upon exit: 
q = F3L 
F3M = F3M 
F3L - ??? 
F3L = F3L 
} 

*Adjust Fl and F2 so that exponents are 

* equal, (set YZ and et to F1X-F2X) 
*Add Fl 

* to F2 
*If no alov then done! 

if not cf goto shift_ready, *Xf alov then must add one to F3X 

F3X:="F3X+one; * 

stf; *and recover 

shift_ready; * the sign bit 

F3M:=lrl(F3M),lwf ; * 
F3L:-q, rtn; * 

FPS_SUB : 
{ 

Subtract F2 from Fl and store into F3 
Upon entry: 

ace = FIX 

F3M - F3M 

F3L - F3L 

F3X = F3X 
Upon exit: 

q = F3L 

F3M =■ F3M 

F3L = ??? 

F3L = F3L 
} 

call fps_adjust, 

ct:-acc-F2X; 
F3L:-F1L-F2L, Idq; 
F3M:=-FlM-F2M-br, elf; 
if not alov then rtn; 
if not cf goto shift_ready, 

F3X:=F3X+one; 
stf, goto shift_ready; 

f ps_adjust: 

{ 

Adjust Fl and F2 so that they have the same exponent, 

and put that exponent into F3X. 
Upon entry: 

ct - F1X-F2X and yz condition set 

FIM - FIM 

FlL " FlL 

F2M = F2M 

F2L - F2L 
Upon exit: 

F3M = upper word of sum 

F3L = lower word of sun (unnormallzed and unrounded) 

F3X - exponent of sum 

q - F 
Performance: 

2 and 7-22 



} 

if yz then rtn, 
bbus/ct, 
F3X:-F1X; 
if bl5 goto fl_small, 
nop:=FlM; 
f 2_smaller: 

if yz goto flzero; 
nop:=23-ct; 



*if exponents are the same then done 

♦Check, sign of F1X-F2X 

*(guess that FIX is bigger or equal to F2X) 

*Which is bigger, F2X or FIX? 

* 

*F2 needs to be adjusted 
*lf dirty zero then rtn 
*Check for swamp 
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0460 

0460 

0461 

0462 

0462 

0462 

0463 

0464 

0464 

0465 

0466 

0466 

0466 

0467 

0467 

0468 

0469 

046A 

04 6A 

046B 

046B 

046B 

046C 

046D 

046D 

046E 

046F 

04 6F 

0470 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0480 

0481 

0481 

0482 

0483 

0483 

0484 

0484 

0484 

0485 

0485 

0486 

0486 

0487 

0487 

0488 

0488 

0489 

0489 

0489 

0489 

0489 

0489 

0489 



If yl5 goto f2_swamp, 
nop:=F2L, Idq ; 

dct; 
f2_loop: 

If not ctz goto f2_loop, 
F2M:=arl(F2M); 

F2L:=q, rtn; 
f 2_swamp: 

F2L:=zero; 

F2M:=zero, rtn; 

f l_smaller : 

nop:=F2M; 

if yz then rtn, 
nop:»FlL, Idq; 

ct:=03<;ffff-ct; 

nop:=2 2-ct; 

If ylii goto fl_swamp, 
F3X:=F2X; 
f l_loop: 

If not ctz goto fl_loop, 
FlM:-arl(FlM); 

FlL:=q, rtn; 
f l_swamp: 

FlL:=zero; 

FlM:=2iero, rtn; 
f Izero: 

F3X:=F2X, rtn; 



*If swamp handle separately 
♦Prepare for shifting 
♦Synchronize counter for loop 
*Loop: 

* arlth shift right F2 to equalize exponents 
* 

♦reload F2L and that's all 
*F2 is swamped by shifting 

*F1 needs to be adjusted 
*Is F2M dirty zero? 
*YES: return 
* 

*count:=-count-l 

♦check for swamp 

♦If swamp handle separately 

♦F2X has the bigger exponent 

♦Loop: 

♦ arith shift right Fl to equalize exponents 
* 

♦Reload FIL and that's all 
♦Fl is swamped by shifting 

* 



FPS_END; $allgn 64$ 

{ 

Conclude the floating point Instruction. 

Nomiallze and Pack F3 and store into a and b registers. 
Fetch next instruction. 
} 

f ps_normallze: 
{ 

Normalize the floating point operand in F3 

Transfer control to fps_round. 

Upon emtry: 

F3M = F3K 

F3L = F3L 

q = F3L 

ct - F3X 
Upon exit: 

F3M„F3L - normalized F3 mantissa 

ct • updated F3X (actual F3X register is garbage) 
} 

acc:-dnrm(F3M) , 

cmdvf ; 
if cf goto FPS__R0UND, 

s7 :==zero; 
if yz goto fps_zero; 
if not alov goto nrm_lp, 

F3M:-acc; 
fps_nnrm: 

F3L:»q, dct, 

goto FPSROUND; 
f ps_zero: 

fchp, rtn, clo; 
nnii_lp : 

F3M:-<ln™(F3M), dct; 

if not alov goto nrm_lp, 

F3X;:-ct; 
F3L:-q, 

dct,, goto FPS ROUND; 



♦Try DNRM to set conditions: 

♦ (shut off dw) 

♦ CF — the number was normal 



YZ — the number was all zeros 

ALOV — the number is now normal (fix) 



♦Number Is now normal 

♦ Decrement exponent one 
* 

♦Number is zero 

♦ That's all. 

♦Loop until normalized: 

♦ look ahead for normalization 

♦ loop if not normalized 
* 

♦ the number Is now normal, 

♦ decrement exponent and done 



f ps_round : 

{ 

Round F3 
Upon entry: 

s7 - 

F3M,F3L == F3 normalized mantissa 
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0489 

0489 

0489 

0489 

0489 

0489 

0489 

0489 

048A 

048A 

04 8B 

048B 

04 8C 

048C 

048C 

048D 

048E 

048E 

048F 

048F 

0490 

0490 

0491 

0492 

0492 

0493 

0493 

0493 

0493 

0493 

0493 

0493 

0493 

0493 

0494 

0495 

0495 

0496 

0497 

0498 

0499 

0499 

0499 

049A 

049A 

049B 

049B 

049B 

049C 

049D 

04 9D 

049E 

049E 

049F 

049F 

049F 

04A0 

04A0 

04A0 

04A0 

04A0 

04A0 

04A0 

04A0 

04A0 

O4A0 

04A0 

04A0 

04A0 

04A0 

04A1 

04A2 

04A2 

04A3 

04A4 



ct = F3X 
dw = off 
Upon exit: (branches dire 
F3M,F3L = rounded float 
ct = F3X 
dw = off 

} 

acc:=0177, bbus/F3M; 
if not bl5 then fcln, 

F3L:=F3L+acc; 
if not cf goto fps_pack, 

F3M:=F3M+cf ; 
fcmcontinue: 

if not alov goto rnd_no, 

acc:=lll(F3M); 
F3M:=lrl(F3M); 
ct:=ct-l-one, 

goto fpspack; 
rnd_no : 

nop:=acc xor F3M, stf; 
if yl5 goto fp8_pack, 

nop:=F3L, Idq; 
ct:=ct-s7-one; 
F3M:=all(F3M), 

goto fps_pack; 



ctly to FPS_PACK) 
ing point mantissa 



*load rounding constant, 
*if F3 is negative, add 0177 

* is positive, add 0200 
*if no carry then done 

* propogate carry into F3M 
* (continuation of ..FCM) 
*if no overflow then branch 

* (set sign condition) 

♦exponent was 011111... and overflow occurred 

* bump exponent 
* 

*No overflow on round 

*check for normalization 

*If still normalized then quit (10...) 

* 

♦decrement exponent 

♦normalize (1100..) 



f ps_pack: 

{ 

Pack the floating point operand in F3. 
Upon entry: 

dw = off 
That's all 

} 

F3X:=rll(ct); 
nop:=ct and OxFFSO; 
if yz goto pack_ok, 

F3X:=zuy(F3X); 
nop:=ct Inor 0x00 7F; 
if yz goto pack_ok; 
if sf goto pack_uf; 
pack_of : 

F3M:=lrl(ones), 

call FPS_OVFL; 
F3L:=lll(ones), 

fchp,rtn; 
pack_uf : 

F3M:=zeros, 

call FPS_OVFL; 
F3L:=zeros, fchp, rtn; 
pack_ok ; 

F3L:='zly(F3L), fchp; 
clo, 

F3L:=F3L ior F3X, rtn; 

f ps_ovf 1 : 
sto, rtn; 

FPS_FIX: 
{ 

Floating point to single word Integer instruction. 

If exp<0, store zero In A. 

If exp>=16, store Ox7FFF' in A and set 

Otherwise convert oprnd to a single integer, truncate 

trailing bits. 



♦Pack the exponent: rotate sign bit 
♦check for positive sign within range 

♦ (upper 8 bits zero) 
* 
♦check for negative sign within range 

♦ (upper 8 bits ones) 
♦Overflow or Underflow: was sign 0? 
♦Overflow 

♦set F3 to largest number 
♦set floating point overflow 

♦ that's all 
* 

♦Underflow 

♦Set F3 to zeros 

♦set floating point overflow 

♦ that's all 

♦Pack exponent and low mantissa 
♦zero low byte of mantissa 

♦floating point is defined to clear if ok 
♦merge exponent and mantissa and that's all 



Performance: 
underflow - 
overflow - 
otherwise - 



7 

10 
11 to 



28 



ct:-zuy(b) ; 
ct:=lrl(ct), cmdw; 
if sf goto fix_small, 

nop:=zero, Idq; 
ct:-15-ct; 
if yl5 goto flx_big, 



♦Load ct with masked exponent. 

♦Adjust ct to hold positive exponent. 

♦If sign of exponent is one, then underflow 

* 

♦ct:"15-exponent (convert from Ishift to rshift) 

♦If exponent >15 then overflow 
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0'iA4 

04A5 

04A5 

04A6 

04A6 

04A6 

04A7 

04A7 

04A7 

04A7 

04A8 

04A8 

04A9 

04A9 

04AA 

04AA 

04AA 

04AB 

04AB 

04AC 

04AC 

04AD 

04AD 

04AD 

04 AD 

04 AD 

04 AD 

04AD 

04 AD 

04AD 

04 AD 

04AE 

04AF 

04AF 

04B0 

04B1 

04B1 

04B1 

04B2 

04B2 

04B3 

04B4 

04B4 

04B5 

04B6 

04B6 

04B6 

04B7 

04B8 

04B8 

04B8 

04B9 

04BA 

04BA 

04BB 

078A 

078A 

078A 

078B 

06F7 

06F7 

06F7 

06F8 

06F9 

06F9 

06FA 

06FB 

06FB 

06FC 

06FD 

06FD 

06FE 

06FE 

06FF 

0700 



acc:-zly(b); 
If ctz goto fix trunc, 
nop : =a ; 
f lx_loop : 

If not ctz goto flx_loop, 
a:=arl(a); 
fix_trunc: 

If not yl5 goto fix_clone, 

nop:=q ior ace; 
if not yz then fcln, 

a:=«a; 
f ix_done: 

fchp.rtn, clo; 

f ix_sinall : 

a:=zero, fchp, rtn, clo; 
fix_big: 

sto; 

fchp, rtn, 

a:=lrl(ones) ; 



*8ave low bits of mantissa 

*if exponent - 15 then no shifting 

*a - mantissa (decrement ct) 

*Loop: 

* until count is zero 

* arithnetlc shift right of mantissa 
♦truncate the integer 

*if mantissa is positive, then quit 

* (assuned truncate on positive mantissa) 
* 

*lf any of the low mantissa bits or the 

* bits that were shifted out are 1, then 

* truncate, (carry from 11.. .1 to can 

* occur, it provides for underflow) 

* that's all 
♦Underflow: 

* set a to zero (o Is clear) . .that's all 
♦Overflow: 

* set a to Ox7fff (o is set) 

* that's all 



FPS_FLT: 
{ 

Single word integer to floating point Instruction. 
Convert integer in A register to a packed floating 
point single precision number in the A and B registers. 
Performance: 
7 or 10-25 mlcrocycles. 
} 

♦Load complement of 15 (an Integer's exponent) 
♦Prepare for snrm 
♦Is integer zero? 
* 

♦Was Integer normalized? 
♦Loop 



b:=0xffef; 

nop: "a, fchp, Idq; 

if yz goto flt_zero, 

b:-snrm(b); 
if cf goto flt_wnrm; 
flt_loop: 



if not alov goto flt_loop,^ until normalized 
b:=snrm(b) ; 
f 1 t_nnrm : 
a:=-arl(q); 



a:=a xor 0x8000; 
flt_wnrm: 
clo; 
b:=rll(not b) , rtn; 

flt_zero: 

a:=zero, clo; 
b:=zero, rtn; 

.pack: 
rdp, Ip; 
F3L:-F3L, Idq; 
goto FPS END, 
ct:=t;'" 

goto $orlgln Ox78A$ 
. .f cm, 
nop:»a; 

..fcm: $origin Ox6F7$ 
if yz goto fcmqult, 

acc:=zly(acc) ; 
nop:=lrl(b) ; 
If not sf goto licmunpack, 

ct :=rrl(b and not ace); 
ct :-rrl(b lor aec) ; 
f cmunpaek: 

F3L:='OxOOFF-b; 
F3M:-not a + cf; 
goto fcmcontlnue, 
s7:=zero; 
fcmqult: 
fchp, rtn; 



♦ (decrement b) 
♦Number Is now normal, 
♦snrm went one too many 
♦fix sign bit 
* 

♦floating point is defined to clear 
♦Format exponent. 

* 

♦Integer was zero. 
♦Load dirty zero 

♦ and return. 

♦PACK a floating point number (FRCW LIS) 
♦read a location 
♦load into Q 
♦use end 

♦ count := next word location 



♦opcode 105232 



.FCM 



♦..FCM single precision negate 

♦if yz then special case 

♦acc:=OxffOO 

♦sign extend 

♦ then exponent 



♦negate B(don't worry about low bits) 

♦negate A 

♦continue (can overflow and underflow) 

*(s7-zero used in rounding routine) 

* 

♦that's all 
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MPARA source listing 

0000 MPARA; *dynainlc mapping system Instructions <820204. 1550> 

03C0 $orlgln 0x3c0$ *flle - &DMS <820204.1550> 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
li******************************************************************** 



03C0 

03C0 

03C0 

03C0 

03C0 

03C0 

03C0 

01A2 

01A2 

01A2 

01A2 

01A2 

01A2 

01A3 

01A3 

01A4 

03C0 

03C0 

O3C0 

03C0 

03C0 

03C1 

03C1 

03C1 

03C2 

03C2 

03C3 

03C3 

03C4 

03C4 

03C5 

03C5 

03C6 

0306 

03C7 

0307 

0308 

03C8 

03C9 

03D0 

03D0 

03D0 

03D0 

03D0 

03D1 

03D2 

03D2 

03D2 

03D2 

03D3 

03D4 

03D4 

03D4 

03D4 

03D4 

03D5 

03D6 

03D6 

03D6 

03D7 

03D7 

03D8 

03D9 

03D9 

03D9 

03D9 

03D9 

03DA 

03DA 



$orlgin 0xla2$ 

$deflne adrl/WMAP_PACK 0x2AB$ 

$deflne adrl/WMAP_UNPACK 0x2B6$ 

DMSO_ENTRY: $ORIGIN 0Xla2$ 
gototbl DMS_TBL1, stor/n; 

DMSl_EN'IRy: $orlgln Oxla3$ 
gototbl DMS_TBL2, stor/n; 

DMS_TBL1: $orlgln Ox3COS 

goto DMS_LPMR, $orlgln Ox3CO$ 

m, 

a:»a-acc; 
goto DMS_SPMR, $origln Ox3Cl$ 

m, 

a:"a-acc; 
goto DMS_LMAP, $origln 0x302$ 

rdp, Ip; 
goto DMS_SMAP, $orlgin 0x303$ 

rdp, Ip; 
goto DMS_LWD1, Sorigln 0x304$ 

rdp, prln:=zly(prln); 
goto DMS_LWD2, $orlgln Ox3C5$ 

rdp, prln:-zuy(prln); 
goto DMS_SWMP, $orlgln 0x306$ 

rdp, Ip; 
goto DMS_SIMP, $origln 0x307$ 

rdp, n:-lll(acc+acc); 
goto DMSJCJMP, $origln 0x308$ 

rdp; 



*DMS jtab entry 
♦opcodes 10(x01)700 
*DMS Jtab entry 1 
♦opcodes 10(x01)720 



10(x01)717 
10(x01)737 
♦define block decode table for DMS opcodes 



♦opcode 10(x01)700 

♦set n to (point to MPAR) 

♦Incranent A 

♦opcode 10(x01)701 

♦set n to (point to MPAR) 

♦Increment A 

♦opcode 10(x01)702 

♦opcode 10(x01)703 

♦opcode 10(x01)704 

♦opcode 10(x01)705 

♦opcode 10(x01)706 

♦opcode 10(x01)707 

♦opcode 10(x01)710 



$orlgln Ox3DO$ ♦begin code from 0x30X opcode table 



DMS_LFMR: 

If mpen goto dms_viol, 

srin:=a+acc; 
map:-b, goto fetch_rtn; 

DMS_SPMR: 

If mpen goto dms_viol, 

srin:-a+acc; 
b:=map, fchp, rtn; 

DMS_LMAP : 
call @map, 
in, 

s2:-p-acc; 
p:=t-sO, rdb; 
Imap loop: 
83:=t, rdp, 

If mpen goto dms_vlol; 
map:~s3, Ip, 



♦Load page mapping register Instruction 
♦privileged opcode 

♦load pmr address register (non inc'd value) 
♦load map with non-Incremented value in A 

♦Load page mapping register Instruction 

* 

♦privileged opcode 

♦load pmr address register (non inc'd value) 

♦LOAD MAP MACROINSTRUOTION and 
♦call the map setup routine 
♦set n to map address register srln 
♦save next opcode address 
♦begin reading MAPBUF p:=t+l 
♦LOAD MAP loop (do 32 times) 
♦save map value, start next read 
♦should I can him? 
♦load value into map 



If not ctz goto lmap_loop;^ 



fchb, p:"s2, rtn; 

I»1S_SMAP: 
call @map, 

in, 

s2:"p-acc; 
p:-t, 

if mpen goto dms_vlol; 



♦that's all 
* 

♦STORE MAP MACROINSIRUCTION 

♦get map number 

♦set n to map address register srln 

♦save next opcode address 

♦load p with resolved address of MAPBUF 
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03DB 

03DB 

03DB 

03DC 

03DD 

03DD 

03DD 

03DE 

03DF 

03E0 

03E0 

03E1 

03E1 

03E1 

03E2 

03E2 

03E2 

03E2 

03E3 

03E3 

03E3 

03E4 

03E5 

03E6 

03E6 

03E7 

03E7 

03E7 

03E7 

03E8 

03E8 

03E9 

03E9 

03EA 

03EB 

03EB 

03EB 

03EB 

03EC 

03EC 

03ED 

03ED 

C3ED 

03EE 

03EE 

03EF 

0'3EF 

03F0 

03F0 

03F0 

03F1 

03F1 

03F2 

03F3 

03F3 

03F3 

03F3 

03F4 

03F4 

03F5 

03F6 

03F7 

03F8 

03F8 

CI3F9 

03F9 

03FA 

03FA 

03FB 

03FB 

0380 

0380 

0381 

0381 

0382 



smap_loop: *SMAP LOOP: 

wrp:=map, Ip, * write map 

if not ctz goto smap_loop;* into 32 memory locations 
fchb, p:-s2, rtn; *that's all 



@map: 

call INDREAD, sO:»ones; 
ct:=31; 

acc:=rl4(t), rdp; 
goto INDRSOLV, 
srin:"acc+acc; 

dms_violation: 

goto 0x46, nop:=-t; 

DMS_XJMP: 

call INDREAD, 

p:-p-acc; 
if mpen goto dm£i_vlol, 

sl:=t, 

rdp; 
call INDRSOLV; 
call WHIAP_UNPACJ:, n:-ones; 
cmld, p:=t, 

goto fetch_rtn; 

DMS_LWD1: 

call INDREAD, 

p : =p-ac c ; 
acc:=zuy(t) , 
fchp; 
lwd@: 

prln:=prln ior 0x2020; 
prin:=»prin ior ace, rtn; 

»IS_LWD2: 

call INDREAD, 

p:=p-acc; 
acc:=swzl(t) , fchp, 

goto lwd@; 

DMS_SWMP: 

call WMAI'_PACK, n:=ones; 

call INDSTORE, 
acc:"'sO; 
fetch_rtn: 

fchp, rtn; 

DMS_SIMP: 
ip. In;; 

call INDSTORE, 

acc:='prin; 
fchp, rtn; 



*LMAP and SMAP setup 

♦indirect on map number 

*a map has 32 PMRs 

*8ave MAP_NUMBERS 

♦indirect on MAPBUF 

*load PMR address register with PMR address 

*link to violation routine 

*(stop any memory reference started) 

*XJMP 

♦indirect on new WMAP 

♦increment p 

* 

♦save new WMAP 

* 

♦indirect on new P 
♦load WMAP 
♦that's all 
* 

♦LOAD DATAl M ACROINS IRUC TION 
♦indirect on DATAl def 
♦increment to next opcode 



♦turn off a/b addressibility 
♦insert into unpacked vmap 

♦LOAD DATA2 MACRO INSTRUCTION 
♦indirect on DAIA2 def 
♦increment to next opcode 

♦STORE WMAP MACROINSTRUCTION 
♦pack the WMAP 
♦store it away 

* 

♦fetch. . . 

♦STORE IMAP MACROINSTRUCTION 
* 

♦store away the packed IMAP 
* 



♦fetch. 



XMOVE_WORDS: 
memr :>sO, 

if ctz goto mwquit; 
mw_loop: 

rdb, a;;-a-acc; 
memr : =a 1 ; 
wrp:"t,, Ip; 

if cl:z goto mHfinish; 
memr:=sO, 



♦load "from" map value 
♦check for initial count zero 
♦cross move words loop: 

♦ read source address and increment 

♦ load destination map 

♦ write to "to" address 

♦ done? 

♦ load "from" map value 
if not intp goto mw_loop; ♦ (check for interrupts) 

mwfinishs ♦finish cross move words: 

b:=p; ♦ update b with address 

mwquit: ♦ (branch here if initial count was zero?) 

x;=ct-l-<jne, rtn; ♦ update x with count 



$origin 0x380;; ♦define block decode table for DMS opcodes 

DMS_TBL2: 

XL@2: $o:i:igin 0x381$ ♦opcode 10(x01)721 

goto DMS XL@2, rdp, 80:=memr; ♦ 
XS@2: $origin 0x382$ ♦opcode 10(x01)722 
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0382 

0383 

0383 

0384 

0384 

0385 

0385 

0386 

0386 

0387 

0387 

0387 

0388 

0388 

0389 

0389 

038A 

038A 

038B 

038B 

038C 

038C 

038D 

038D 

038E 

038E 

038F 

038F 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

0390 

0391 

0391 

0392 

0392 

0392 

0392 

0392 

0392 

0393 

0393 

0394 

0394 

0394 

0394 

0395 

0396 

0396 

0396 

0396 

0396 

0396 

0396 

0397 

0397 

0398 

0398 

0398 

0398 

0398 

0398 

0398 

0399 

0399 

039A 

039A 

039A 

039B 

039B 

039C 



goto DMS_XS92, rdp, sO:-memr; * 

XC@2: $orlgln 0x383$ *opcode 10(x01)723 

goto DMS_XC@2, rdp, s0:=meinr; * 

XL@1: $origin 0x384$ *opcode 10(x01)724 

goto DMS_XL@1, rdp, s0:=memr; * 

XS@1: $orlgln 0x385$ *opcode 10(x01)725 

goto DMS_XS@1, rdp, s0:=memr; * 

XC@1: $origln 0x386$ *opcode 10(x01)726 

goto DMS_XC@1, rdp, a0:=TOemr; * 

MOO: 

sO:"meiiir, goto M_0 ; 
MOl: 

sO:=memr, goto M_l ; 
M02: 

sO:"memr, goto M_2; 
MIO: 

sO:"prin, goto M_0; 
Mil: 

sO:=prin, goto M_l ; 
M12: 

sO:=prin, goto M_2; 
M20: 

sO:=swzu{prin) , goto M_0 
M21: 

s0:="swzu(prin) , goto M_l 
M22: 

sO:=swzu(prin) , goto M_2 

$origln 0x390$ *begin DMS Instructions for 10{x01)720 - 10(x01)737 

DMS_XL@1: 

{ 

Load a or b from alternate map 
} 

call INDRSOLV; 

memr:=prin, 
goto L@; 

DMS_XL@2 : 

{ 

Load a or b from data map 
} 

call INDRSOLV; 

memr:»swzu(prln) , 
goto L@; 

L@: 

rdb, bbus/t, 

memr:=sO, ip; 
cab:»t, fchp, rtn; 



*resolve indirects in this map 
*load memr with alternate map value 
* 



*save old map value, resolve indirects 

*load memr with data map value 

* 

*Load a or b from xxxx map (continued) 

*read the cross map value 

*restore execute map, inc(p) past DEF 

He 



DMS_XS@1: 

{ 

Store a or b through alternate map 

} 

call INDRSOLV, *begin cross map read, resolve indirects 

sl:=cab; * 

memr:=prin, *load alternate map value 

goto S@; * 

DMS_XS@2: 

{ 

Store a or b through dat.j map 
} 

call INDRSOLV, *begin cross map read, resolve indirects 

sl:=cab; * 

memr :=swzu(prin) , *load alternate map value 

goto S@; * 



S@: 



wrb:=sl, bbus/t; 
memr ;=sO, 

ip, goto fchrtn; 



*Store a or b (continued) 
*wrlte value to resolved address 
*restore execute map 
♦increment p past def 
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039C 

039C 

039C 

039C 

039C 

039C 

039C 

039D 

039D 

039E 

039E 

039E 

039E 

039E 

039E 

039E 

039E 

039F 

039F 

03A0 

03A0 

03A0 

03A0 

03A1 

03A2 

03A2 

03A3 

03A3 

03A4 

03A4 

03A4 

03A5 

03A5 

03A6 

03A6 

03A7 

03A7 

03A7 

03A7 

03A7 

03A7 

03A7 

03A7 

03A7 

03A7 

03A8 

03A9 

03AA 

03AA 

03AB 

CI3AC 

03AC 

03AC 

03AD 

03AE 

C)3AE 

03AF 

C)3AF 

03AF 

03AF 

03B0 

03B0 

03B1 

03B1 

03B1 

03B2 

03B3 

03B3 

03B3 

03B4 

03BA 

03B4 

03B5 

03B5 

03B5 



DMS_XC@1: 

{ 

Cross compare a or b through alternate map 
skip If equal 

} 

call INDRSOLV, *resolve Indirects In this map 

sl:=cab; * 

memr:=prln, *load memr with alternate map value 

goto C@; * 

»1S_XC@2: 

{ 

Cross compare a or b through data map 
skip if equal 

} 

call INDRSOLV, 

si: -cab; 
memr:»swzu(prin) , 
goto C@; 

C@: 

rdb, bbus/t, 

ip; 

nop:"t xor si; 
if not yz then ip, 
memr:-sO; 
fchrtn: 

fchp, rtn; 

M_0: 

sl:=men,r, goto MWMB; 
M_l; 

sl:"prin, goto MWMB; 
M_2: 

sl:"swzu(prln) , goto MWMB; 



*resolve indirects in this map 
*load memr with data map value 



*Cross compare (continued) 
*read cross value 

* 

♦compare 

*if the same then skip 

♦restore execute map 

* 

*fetch. .. 



MWMB: 

{ 

Common cross move routine for words and bytes 

sO:= source map 

si:- destination map 

s2:> execute addr 

s3:- execute map 
} 

s2:=p; 

s3:-memr ; 

nop;=rl4(ct) ; 

if not yl5 goto mb, 
ct:-?:; 

p:=b, call XMOVEJHORDS; 
mf inish: 

if yz goto mwloadp, 
memr;;"s3; 

p:=fa, fchb, rtn; 
mwl oadp : 

p:=s2, fchb, rtn; 

mb: 

call XMOVE_BYTES, 

memr :-sO; 
goto mlfinlsh, 

x:=c t+one; 

XMOVE BYTES: 



*save current P 

*save the execute map number 

♦decode 

* between MW and MB 

♦load counter with count in X 

♦prepare for move words and do long call 

♦finish cross move... 

♦if final count is not zero then interrupt 

♦reload execute map 

♦restart due to Interrupt 

* 

♦count was zero, finished! 



♦call cross move bytes 

♦load "from" map 

♦time to quit 

♦load updated count into x 



p:=lrl(a), if ctz then rtn; ♦load word address, synch count 
rdp, memr:"8l; ♦ 



mb_loop: 

if sf goto rab_blodd, 
p:-lrl(b);; 
mb_bleven: 
s4:-swzu(t) , 
goto mb_b2; 
mb_blodd: 
84:»zuy(t) , 
goto mb_b2; 



♦is stringl address even or odd? 

♦Increment stringl address 

♦STRINGl ADDRESS EVEN 

♦align and mask stringl byte 

* 

♦SlRINGl ADDRESS ODD 

♦align and mask stringl byte 
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03B6 


mb_b2: 


03B6 


a:=a-acc, spO/rdp; 


03B7 


if sf goto mb_b2odd. 


03B7 


b:=b-acc; 


03B8 


mb_b2even: 


03B8 


s4:=swzl(sA); 


03B9 


s5:=zuy(t), 


03B9 


goto mb_wrlte; 


03BA 


mb b2odd: 


03BA 


s5:=zly(t). 


03BA 


goto mb write; 


03BB 


iiib_wrlte: 


03BB 


wrp:= s5 ior s4, 


03BB 


if ctz then rtn; 


03BC 


p :=lrl(a), 


03BC 


if intp then rtn; 


03BD 


memr:-sO; 


03BE 


mb_enter : 


03BE 


goto mb loop. 


03BE 


spl/rdp, 


03BE 


memr : "S 1 ; 


03BF 




03BF 




03C0 





*lncraiient string! address 
*is string2 address even or odd? 
♦increment strlng2 address 
*SmiNG2 ADDRESS EVEN 

* 

*allgn and mask string2 byte 
* 

*STRING2 ADDRESS ODD 

*align and mask strlng2 byte 

* 

*insert strlngl byte and write word to memory 

*is count zero? 

*create stringl word address 

*are interrupts pending? 

*load source map 

* 

*goto LOOP 

* begin read of strlngl 

* 

* 



MPARA source listing 

0000 MPARA; *double integer set (not In LIS) <820204. 1550> 

07C0 $origin 0x7C0$ *file = 6.DIS <820204. 1550> 

********************************************************************* 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 



07C0 
7C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
07C0 
OIBO 
OIBO 
OlBl 
OlBl 
01B2 
01B2 
01B3 
01B3 
01B4 
01B4 
01B5 
01B5 
01B6 
01B9 
01B9 
OIBA 
07C0 
07C0 
07C0 
07C0 
07C1 
07C2 
07C2 
07C3 
07C4 
07C4 
07C5 



$define abus/DlM 010$ $define bbus/DlM 010$ $define stor/DlM 010$ *sO 

$deflne abus/DlL 011$ $define bbus/DlL 011$ $define stor/DlL 011$ *b1 

$deflne abus/D2M 012$ $deflne bbus/D2M 012$ $define stor/D2M 012$ *s2 

$deflne abus/D2L 013$ $deflne bbuB/D2L 013$ $define stor/D2L 013$ *s3 

$define abus/D3M 016$ $deflne bbus/D3M 016$ $deflne stor/D3M 016$ *s6 

$define abus/D3L 017$ $deflne bbus/D3L 017$ $deflne stor/D3L 017$ *s7 

$define abus/D4M 014$ $define bbus/D4M 014$ $define stor/D4M 014$ *s4 

$deflne abus/D4L 015$ $deflne bbus/D4L 015$ $define stor/D4L 015$ *s5 
$deflne adrl/INST RESTART 0xD0$ 



$deflne adrl/INDRDBL 0x735$ 

goto $origin OxlBO$ 

.dad, s5:=p-acc; 
goto $orlgin OxlBl$ 

.dsb, s5:=p-acc; 
goto $orlgln 0xlB2$ 

.dmp, DlM:=a; 
goto $orlgln 0xlB3$ 

.ddi, DlM:=a; 
goto $orlgln 0xlB4$ 

.dsbr, s5:=p-acc; 
goto $origln OxlB5$ 

.ddir, D2M:=a; 

goto $origin OxlB9$ 

dbl mpy enter, ct;=ones; 



*opcode 105014 .DAD 
* 

♦opcode 105034 .DSB 
* 

♦opcode 105054 .DMP 
* 

♦opcode 105114 .DDI 
* 

♦opcode 105134 .DSBR 

* 

♦opcode 105154 .DDIR 
* 



♦link 
* 



from VMA code to firmware or hardware 



$origin 0x7C0$ 
.dad: 
rdp, 

call Indrdbllnk; 
b:=b+t, fchp, clo; 
nop:=acc+s7+cf , 

if not cf goto 
if cf then ste; 
if not alov then 

a:=a+s7+one; 
sto, rtn; 



♦DOUBLE ADD 

♦read DEF 

♦get memory operand in (s7,t) 

♦add low half 

♦carry from low half 
.dadslmple;^ n: then simple case 

♦y; must to STE and STO explicitly 
rtn, ♦ 

♦do the actual add with carry 

♦set o on overflow 
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07C6 


• dadslmpJ.e ; 


07C6 


a:=a+s7, enoe, rtn; 


C)7C7 




07C7 


.dsb: 


07C7 


rdp. 


07C7 


call iiidrdblink; 


07C8 


b:=b-t, fchp, clo; 


C)7C9 


a:»a-s7-br; 


07CA 


• dsbflagji: 


07CA 


If not cf then ste; 


07CB 


if not alov then rtn; 


()7CC 


sto, rtn; 


()7CD 




7CD 


.dsbr: 


7CD 


rdp, 


7CD 


call Indrdblink; 


7CE 


b:=t-b, fchp, clo; 


07CF 


a:=s7-acc-br. 


07CF 


goto .dsbflags; 


07D0 




07D0 


Indrdblink: 


07D0 


call IKDRDBL, 


07D0 


ace : =a ; 


07D1 


p:=»s5, rtn; 


07D2 




07D2 


.dmp: 


07D2 


rdp, 


07D2 


call indrdblink. 


07D2 


s5:=p-acc; 


07D3 


D2M:=s7; 


07D4 


DlL:=b; 


07D5 


D2L:=t, 


07D5 


call dbl_inultiply; 


07D6 


a:=D3M, clo, fchp; 


07D7 


if bis goto .dmpneg. 


07D7 


b:=D3L; 


07D8 


nop:=D4M ior D4L; 


07D9 


if yz then rtn; 


07DA 


goto .drapovfl. 


07DA 


a:=lrl(ones); 


07DB 


.dmpneg: 


07DB 


nop:=B4M nand I)4L; 


07DC 


if yz then rtn; 


07DD 


a:=lrl(ones); 


07DE 


.dmpovf 1: 


07DE 


b:="ones, sto, rtn; 


07DF 




07DF 


dbl multiply: 


07DF 


{ 


07DF 


double integer multiply 


07DF 


} 


07DF 


ct :=ories; 


07E0 


dbl_mpy_enter : 


07E0 


nop:=DlL, Idq; 


07E1 


acc:=D2L; 


07E2 


D4M:=z;ero; 


07E3 


D4L:=z;ero; 


07E4 


D3M:=ijmpy(D4L), 


07E4 


dct; 


07E5 


dmp Hoop: 


07E5 


if not ctz4 goto dmp Hoop, 


07E5 


D3M:=iraipy(D3M); 


07E6 


D3L:-qi; 


07E7 


acc:=IllM; 


07E8 


if yz goto dmp 2skip, 


07E8 


nop:=D2L, Id^j"; 


07E9 


dmp_21oop; 


07E9 


if not ctz4 goto dmp_21oop. 


07E9 


D4L;=tmpy(D4L); 


07EA 


if yi;> then fcin. 


07EA 


D4M:;=acc-acc; 


07EB 


D3M:=q+I)3M; 


07EC 


D4L:=I)4L+cf ; 


07ED 


D4M:=I)4H+cf ; 


07EE 


dmp 2 skip: 



♦simple add (no carry) 

*add'em and do the E and thing 

♦DOUBLE SUBTRACT 

*read DEF 

*get memory operand in (s7,t) 

♦subtract low half 

♦subtract high half 

♦do the E and thing explicitly 

♦if borrow then ste 

♦if no alov then return 

♦overflow: set and return 

♦DOUBLE SUBTRACT REVERSE 

♦read DEF 

♦get memory operand in (s7,t) 

♦subtract low half 

♦subtract high half 

♦do the E and thing 

♦READ DOUBLE ROUTINE 
♦call the indirect read routine 
♦save high half in ace 
♦replace program counter 

♦DOUBLE MULTIPLY INSTRUCTION 
♦read DEF 

♦ and get memory operand in (s7,t) 

* 

♦D1M,D1L,D2M,D2L are now loaded 

♦ so multiply 
♦return D3M to A 

♦do overflow on four word to 

♦ two word conversion 

♦are all upper sign bits zeros? 

♦ y: return 

♦ n: overflow 

* 

♦are all upper sign bits ones? 

♦ y: return 

♦ n: overflow 

♦overflow: set result to most positive 

♦ number and set 



♦count ="15 (low four bits) 

♦ (entry from VMA code) 
♦prepare for multiply (unsigned) 

♦ of low 16 bits of both operands 
♦clear the upper 32 bits 

♦ of the final product 

♦first multiply step here to load D3M 
♦count = 14 (low four bits) 
♦MULTIPLY LOOP 1 
♦do vinsigned multiply 

♦ low ♦ low 

♦save low 16 bits of product 

♦prepare for multiply (signed) of low^high 

♦special case: high bits zero, so skip 

♦load low bits into Q 

♦MULTIPLY LOOP 2 

♦do signed multiply 

♦ high ♦ low 

♦if it's negative, then set 

♦ D4M to negative 

♦save low 15 bits of product 

♦enough? ? 

♦is this really needed? 
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07EE 

07EF 

07EF 

07F0 

07F1 

07F1 

07F1 

07F2 

07F3 

07F4 

07F5 

07F6 

07F6 

07F7 

07F8 

07F8 

07F9 

07F9 

07F9 

07FA 

07FB 

07FC 

07FD 

07FD 

OIBA 

OIBA 

OIBB 

OIBC 

OIBD 

OIBE 

OIBF 

05B5 

05B5 

05B5 

05B6 

05B6 

05B6 

05B7 

05B8 

05B9 

05BA 

05BA 

05BA 

05BB 

05BC 

05BC 

05BD 

05BE 

05BF 

05BF 

05BF 

05C0 

05C1 

05C1 

05C1 

05C2 

05C3 

05C3 

05C3 

05C4 

05C5 

05C5 

05C6 

05C6 

05C6 

05C6 

05C6 

05C7 

05C7 

05C8 

05C8 

05C9 

05CA 

05CB 

05CB 



acc:=D2M; 

if yz then rtn, 

nop;"DlIj, Idq; 
D2L:=zero; 
dmp_31oop: 

if not ctz4 goto dmp_31oop, 

D2L:"tmpy(D2L); 
D3M:=q+D3M; 
D4L:-D4L+D2L+cf ; 
D4M:=D4M+cf, bbus/D2L,; 
D2L:=zero; 
if bl5 then fcin, 

D4M:=D4M-D2L; 
acc:-DlM, dct; 
if yz then rtn, 

nop:=D2M, Idq; 
dinp_41oop: 

if not ctz4 goto dmp_41oop, 

D2L:=tmpy(D2L); 
D2L:=tmlc(D2L); 
D4L:=D4L+q; 
D4M:=D4M+D2L+cf , rtn; 



.ddir: $origln OxlBA$ 
rdp, acc:= -ace; 
call INDRDBL, D2L:=b; 
DlM:=s7, clo; 
call dbl_divide, DlL:=t; 
goto .ddlcontinue; 



of high*low 
so done! 



$origin Ox5B5$ 
.ddllntp: 

fchb, p:=fa, 



rtn; 



.ddi: 

rdp, acc:= -ace; 

call INDRDBL, DlL:=b; 

D2M:=b7, clo; 

call dbl_divide, D2L:=t; 
.ddlcontinue: 

if intp goto .ddiintp, 
aee:=lll(ones); 

a:=D3M, bbus/grin; 

if bl5 goto nonegate, 
b:"q; 

b:» -b; 

a:= not a + cf ; 
nonegate: 

if o goto .ddiovfl, 
p:=fa-acc; 

fchp, rtn; 

.ddiovfl: 
a:=0x7FFF; 
b:=ones, fchp, rtn; 

.ddibigdnd: 

nop:=D2M nand D2L; 

if not yz then rtn; 
.ddizero: 

sto, rtn; 

dbl_divide: 

nop:=D2M ior D2L, 

clo, 

cmdw; 
if yz goto .ddizero, 

grin:=zero; 
if bl5 goto d2neg, 

nop:=D2M; 
grin: "ones; 
D2L:- -D2L; 
D2M:= not D2M + cf , 

bbus/DlM; 



♦prepare for multiply (signed) 

♦special case: high bits zero, 

*load low bits into Q 

♦initialize partial product 

♦MULTIPLY LOOP 3 

♦do signed multiply 

♦ low ♦ high 

♦save high 16 bits of product 

♦add (.X..) part of product 

♦carry to (x...) part of product 

* 

♦do sign extend due to partial 

* 

♦prepare for partial product of hlgh^high 

♦special case: if zero then return 

* 

♦MULTIPLY LOOP 4 

♦do signed multiply 

♦ high ♦ high 

♦last step due to sign 

♦add low words together 

♦add upper word to D4M 



♦.DDI INTERRUPTED 

* 

♦DOUBLE INTEGER DIVIDE 

♦acc:=l 

♦get two word operand 

♦o will be set if overflow occurs 

♦do the divide 

* 

♦if we were interrupted, then restart 

♦a:= -2 

♦load A; should we negate?? 

♦if grin 15 is zero then negate 

♦replace b with DSL 

* 

♦if o set the overflow occurred 
♦set p to next opcode 
♦that's all 

♦DIVIDE OVERFLOW 

♦set (A,B) to 077777 177777 

♦that's all 

♦check for 100000 000000 / 177777 177777 

* 

♦if not so then ok 

♦else overflow! 

♦DOUBLE DIVIDE 

♦is the divisor zero? 

* 

♦ (set the double word bit) 
♦y: then return with set 

* 

♦make the divisor negative 

♦ not negative? 

♦ save that fact in grin 

♦ and make divisor negative 
* 
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05CC 


d2neg: 


05CC 


If not bl5 goto dlpos, 


05CC 


ct : =zeros; 


05CD 


grln:»not grin; 


05CE 


D1L:= -DIL; 


05CF 


D1M:= not DIM + cf ; 


05D0 


dlpos: 


05D0 


if alov call .ddiblgdnd. 


05D0 


nop: = D2L,, Idq; 


05D1 


shftlocp: 


05D1 


nop:=DlL+q, 


05D1 


If Intp then rtn; 


05D2 


nop:-DlM+D2M+cf , 


05D2 


dct; 


05D3 


if cf goto shftlocp. 


05D3 


D2M:=lil(D2M); 


05D4 


if not sf goto toofar. 


05D4 


D3M:=zero; 


05D5 


D3M:=0xC000; 


05D6 


toofar: 


05D6 


D3M:-B3M ior 0x8000; 


05D7 


D2M:-lrl(D2M); 


05D8 


D2M:-lrl(D2M); 


05D9 


D2M:=D2M ior D3M; 


05DA 


D2L:-q; 


05DB 


ct:=not ct; 


05DC 


D3M:=2eros, Idq, 


05DC 


cmdw; 


05DD 


goto dloop,; 


05DE 




0470 


newbitl: $origin 0x470$ 


0470 


nop:=q ior ace, Idq, 


0470 


stf. 


0470 


goto shftdvrl; 


0471 


dloop: 


0471 


loopl: 


0471 


D4L:=Dl!L+D2L, 


0471 


if otz then rtn; 


0472 


D4M:=-DlM+D2M+cf, 


0472 


if intp then rtn; 


0473 


if not yl5 goto newbit2. 


0473 


D3M:=dnrm(D3M); 


0474 


stf; 


0475 


shftdvrl: 


0475 


D2M:=arl(D2M), Iwf; 


0476 


D2L:-lrUD21), Iwf, 


0476 


goto loopl; 


0477 




0477 


newbit2: 


0477 


nop;-"!} ior ace, Idq, 


0477 


stf, 


0477 


goto shftdvr2; 


0478 


loop2: 


0478 


D1L:=I34L+D2L, 


0478 


if <:tz then rtn; 


0479 


DlM:-I)4M+D2M+cf, 


0479 


if intp then rtn; 


04 7A 


if not ylS goto newbitl, 


04 7A 


D3M:;=dnnii(D3M); 


047B 


stf; 


047C 


shftdvr2: 


047C 


D2M:=arl(D2M), Iwf; 


047D 


D2L:-lrUD2I-), Iwf, 


047D 


goto ].oop2; 


047E 




04 7E 




047F 





*make the dividend positive 

* not positive? 

* save quotient sign in grin 

* negate dividend (unsigned) 



*prepare for double word shift of divisor 
*SHIFT UNTIL DIVISOR < PARTUL REMAINDER 

* (abs val) 
* 

♦compare shifted dim to d2m 

*keep count of number of shifts in ct 

*is divisor > partial remainder? 

*divlsor := divisor * 2 

♦recover the most significant bit 

*last bit shifted was one 

* 

*last bit shifted was zero 

*make up for extra shift 
*shift to make |DND| >= |DVR| 
*fix sign and bit 14 
* 

*et now holds the number of quotient bits 
*load initial quotient 
*clear double word bit 
♦generate unsigned quotient 

♦generate a new quotient bit 

♦ put it back into Q 

♦ set the flag for divisor shift 

* do the divisor shift 



♦DIVIDE LOOP 

♦is partial remainder 

♦ greater than 

♦ divisor? 



♦ 2 



♦y: add a quotient bit 
♦ quotient := quotient 

♦divisor := divisor / 2 



♦generate a new quotient bitt 

♦ put it back into Q 

♦ set the flag for divisor shift 

♦ do the divisor shift 

♦is partial remainder 

♦ greater than 

♦ divisor? 
* 

♦y: add a quotient bit 

♦ quotient := quotient ♦ 2 

* 



♦divisor 

* 

* 



divisor / 2 



MPARA source listing 

0000 MPARA; ♦language instruction set and some double integer <820204. 1550> 

0740 $origin 0x740$ ♦file = &LIS <820204. 1550> 

0740 ********************************************************************* 

0740 ♦ (C) Cop:rt-ight Hewlett Packard Company 1982. All rights reserved. ♦ 
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0740 


* No part of this program may 


be photocopied, reproduced or * 


0740 


* translated to another program language without the prior written * 


0740 


* consent of Hewlett Packard i 


Company . * 


0740 


********************************************************************* 


0740 


$deflne adrl/INDRDBL 0x735$ 




0188 


$origln 0x188,? gototbl 0x740; 


♦opcode 105200 - 105217 


0189 


$orlgln 0x189$ gototbl 0x780; 


♦opcode 105220 - 105237 


018A 






0743 


goto $orlgin 0x743$ 


♦opcode 105203 .DNG 


0743 


.dng, fchp. 


* begin fetch 


0743 


b:= -b; 


* negate low word 


0744 


goto $orlgln 0x744$ 


♦opcode 105204 .DCO 


0744 


.dco, rdp. 


♦ read DEF 


0744 


sO:=p-acc; 


♦ sO:=no skip location 


0745 


goto $origln 0x745$ 


♦opcode 105205 .DFER 


0745 


•dfer, rdp, Ip, 


♦ read DEF 


0745 


ct:=» zero; 


♦ set up counter 


0747 


goto $orlgln 0x747$ 


♦opcode 105207 .BLE (link to FPP) 


0747 


0x1 IcO, p:=p-acc; 


* 


0748 


goto $orlgin 0x748$ 


♦opcode 105210 .DIN 


0748 


•din, fchp, 


♦ begin fetch 


0748 


b:="b+one; 


♦ Increment low word 


0749 


goto $origin 0x749$ 


♦opcode 1052U .DDE 


0749 


.dde, fchp. 


♦ begin fetch 


0749 


b:=b+acc; 


♦ decrement low word 


074A 


goto $orlgln 0x74A$ 


♦opcode 105212 •DIS 


074A 


.dis, rdp, 


♦ read DEF 


074A 


s0:=p-acc; 


♦ s2:-no skip location 


074B 


goto $orlgin Ox74B$ 


♦opcode 105213 •DDS 


074B 


.dds, rdp. 


♦ read DEF 


074B 


sO;=p-acc; 


♦ s2:=no skip location 


074C 


goto $orlgin 0x74C$ 


♦opcode 105214 .NGL (link to FPP) 


074C 


0x1 lc3, p:=p-acc; 


* 


074D 






0750 


$orlgln 0x750$ 




0750 


.dng: 


♦DOUBLE NEGATE 


0750 


a:=not a + cf , 


♦a:«a - br 


0750 


goto .dlnflags; 




0751 






0751 


•dco: 


♦DOUBLE COMPARE 


0751 


call INDRDBL, 


♦read double Integer Into s7 and t 


0751 


sl:»sO-acc; 


♦si:" less than skip location 


0752 


acc:=a; 


* 


0753 


nop:=b-t; 


♦subtract operand 2 (In memory) 


0754 


If not yz goto .dcoendlng. 


* 


0754 


s2:=acc-s7-br; 


♦ from operand 1 (A,B) 


0755 


If yz goto .dcosame; 


* 


0756 


.dcoendlng: 


* 


0756 


If alov goto .dcoswltch; 


♦if arlthnetlc overflow then switch sense 


0757 


nop:=s2; 


♦if opl <> op2 then branch 


0758 


.dcoskip: 


* 


0758 


If not bl5 then fcin, 


♦if opl > op2 then extra skip 


0758 


sl:=sl; 


* 


0759 


fchb, p:=sl, rtn; 


♦fetch one or two skips and return 


075A 


•dcoswltch: 


* 


075A 


If bl5 then fcln. 


* 


075A 


sl:=sl; 


* 


075B 


fchb, p:=sl, rtn; 


* 


075C 






075C 


•din: 


♦DOUBLE INTEGER INCREMENT 


075C 


a:=a+cf ; 


♦add with carry 


075D 


•dlnflags: 


* 


075D 


If cf then ste; 


♦if carry then set E 


075E 


•dlnovf 1: 




075E 


if not alov then rtn, clo; 


♦if no alov then return, clear 


075F 


sto, rtn; 


♦set and return 


0760 






0760 


•dde: 


♦DOUBLE INTEGER DECREMENT 


0760 


a:=acc+a+cf ; 


♦add with borrow 


0761 


if not cf then ste; 


♦if borrow then set E 


0762 


If not alov then rtn, do; 


♦if alov then STO, else CLO 


0763 


sto, rtn; 


* 


0764 






0764 


• dis: 


♦DOUBLE INCREMENT AND SKIP 


0764 


call INDRDBL; 


♦read double Integer into s7 and t 



E-49 



Appendix E 



0765 
0766 
0766 
0767 
0768 
0768 
0768 
0769 
0769 
0769 
076A 
076A 
076A 
076B 
076C 
076C 
076D 
076E 
076F 
076F 
076F 
076F 
076F 
0770 
0770 
0770 
0771 
0772 
0772 
0773 
0774 
0774 
0774 
0775 
0775 
0776 
0776 
0777 
0777 
0778 
0778 
0778 
0779 
0779 
077A 
077A 
077B 
077C 
0780 
0780 
0781 
0783 
0783 
0783 
0783 
0784 
0784 
0784 
0784 
0785 
0785 
0785 
0785 
0787 
0787 
0788 
0788 
0789 
0789 
078A 
078A 
078A 
078A 
078B 
78B 



wrp:=t+I ; 

if not yz goto noskip, 
p:=p+acc; 

wrp:=s7+one; 
zcheck: 

if yz then sCor, 
sO:=sO-acc; 
noskip: 
..dcosame: 

fchb, p:='sO, rtri; 

.dds : 

call INDRDBL; 

wrp:=t+acc; 

If cf goto zcheck, 

s2:=acc+s7-(-cf ; 
p:=p+acc; 
wrp:=s2, goto noskip; 

•zfer: 
.cfer : 
rdp, Ip, 

ct :=ct-acc; 
.dfer: 

call INDREAD, 
ct:=ct-acc; 
p : =ma , rdp ; 
call INDREAD, 
ct:=ct-acc; 
a : =ma+o nt ; 
.dloop: 
wrp:=t, ip, 

if ctz4 goto .dfixp; 
rdb, a:»a-acc, 
goto .dloop; 
•dfixp: 

p:=fa+3; 
•dend: 

fchp, b:=ma+one, rtn; 

.xf er : 

ct:=2; 
•xloop: 

rdb, a:»a-acc; 

wrp:=t, Ip, 

if not ctz4 goto .xloop; 

p:=fa+one, goto .dend; 

goto $orlgin 0x780$ 
.xfer, p:=b; 

goto $orlgin 0x783$ 

.entr, rdp, 

elf, 

p:«fa+acc; 
goto $orlgin 0x784$ 

.entp, rdp, 

elf, 

p : =f a+a cc ; 



goto $orlgin 0x787$ 
.setp, p:-b, rdp; 



goto $orlgin 0x789$ 
.cfer, ct:=zero; 



goto $orlgin 0x78b$ 
0x1 lc6, n:="acc+acc; 



*increment low word of double 

*if yz then must carry 

* into next word 

*carry into upper word 

*check for zero result 

*lf yz then skip 

* 

*that's all 



♦DOUBLE DECREMENT AND SKIP 
*read double integer into s7 and t 
♦decrement low word of double 
*if no borrow then check for zero 
* 

*else propogate borrow 
*and no skip possible 

*EIGHT WORD MOVE 

*FOUR WORD MOVE 

*get the count (equal total words -2) 

*ct:=ct+l 

♦ THREE WORD MOVE 
♦indirect on destination DEF 
*ct:=ct+l 

*p:=first destination word 

♦indirect on source DEF 

♦ct:=ct+l 

♦A gets memory address 

* 

* 

♦read from address in A, inc A 
* 

♦.XFER move three words 
* 

♦LOOP 

♦ read it 

♦ write it 



♦ready to fetch, 
♦opcode 105220 .XFER 



♦opcode 105223 .ENTR 



* 






* 






♦opcode 


105224 


.ENTP 


* 






* 






♦opcode 


105225 


.PWR2 


* 






♦opcode 


105226 


.FLUN 


* 






♦opcode 


105227 


.SETP 


* 






♦opcode 


105230 


.PACK 


* 






♦opcode 


105231 


.CFER 


* 







♦opcode 105232 ..FCM 
♦ (see &FPSG for code) 

♦opcode 105233 ..TCM (link to FPP) 
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078C 

078C 

078C 

078C 

078D 

078D 

078D 

078D 

078E 

078E 

078F 

078F 

0790 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0791 

0792 

0792 

0792 

0792 

0792 

0793 

0794 

0794 

0795 

0796 

0796 

0797 

0798 

0799 

079A 

079A 

079B 

079C 

079C 

079D 

079D 

079D 

079D 

079E 

079E 

079E 

079F 

079F 

07A0 

07A0 

07A1 

07A1 

07A1 

07A2 

07 A3 

07A3 

07A4 

07A4 



goto $orlgin 0x78C$ 

•entn, rdp, 

stf, 

p:=fa+acc; 
goto $orlgin 0x78D$ 

.entc, rdp, 

stf, 

p:=f a+acc; 
goto $orlgln 0x7 8E$ 

•cpm, rdp, ip; 
$origln 0x78F$ 

ct:=-4; 

goto .zfer; 



♦opcode 105234 .ENTN 
* 

*opcode 105235 .ENTC 

* 

*opcode 105236 .CPM 

*opcode 105237 .ZFER 
*load up count (-4) 



i 



.ENTR, .ENTP, .ENTC .ENTN support the following call sequences. 



jsb subr 

def rtn 

def parml — > 

def parmn 
rtn etc. . . 



jsb subr pi 
def pannl — > 

def parmn 
rtn etc... 



} 

.entp: 
.entc: 
p:=fa-0100003; 



.entr: 
.entn: 

sO:=p; 

ct:=sO-t; 

p:=t+acc, 
rdp; 

ct:=ct and Ox7fff; 

if f goto .entnenter, 
sl:=t, rdb; 

sl:=sl-acc; 

s2:=t-sl; 

nop:=s2-ct; 

if not yl5 goto .entloop, 
s3:=t; 

ct:=s2; 
.entloop: 

rdb, bbus/sl; 
.entnenter: 

if ctz goto .entend, 
s2:=sl-acc, 

ip; 

.entrslv: 

if intp goto .entquit, 

wrp:=t; 
if not bl5 goto .entloop, 

sl:-s2; 
goto .entrslv, 

rdb, bbus/t; 
.entend: 

if not f then stor, 

wrb:=s3, bbus/sO; 
p:=fa+2; 
if f then stor, 

wrb:-sl, bbus/sO; 
if not bl5 then rtn, 

fchb, nop:=p; 



pi bss m 
subr jsb .entr 
def pi 



bss m 
Jsb .entn 
def pi 



pl 


bss m 


subr 


nop 




nop 




nop 




jsb .entp 




def pl 




(a=rtn) 


>1 


bss m 




nop 




nop 




nop 




jsb .entc 




def pl 




(a=rtn) 



*NOP is 3 before the .ENTP, .ENTC 
*(bl5 of P says that A must be loaded 

* on return) 

* 

*save NOP address 

*ct:=callee count 

*8ave callee parm block address (-1) 

*read NOP to get rtn address 

*mask off .ENTP/C flag 

* (.ENTN .ENTC do not do the chase) 
*sl:»start of caller parm block (N,C) 
*sl;=start of caller parm block (R,P) 
*s2:=caller count 

♦compare callee count to caller count 

*take the lesser 

*save .ENTR,P return address 

* 

*MOVE LOOP (can I be tricky with cwrb?) 

*read caller parm 

* 

*is that all? 

*save next caller parm address 

♦increment callee parm block address 

♦RESOLVE INDIRECTS 

♦check for interrupts 

♦write caller parm into callee parm 

♦if caller parm was direct then loop 

♦sl;=sl+one (only once through loop) 

♦CHASE DOWN INDIRECT 

♦else indirect 

♦END THE INSTRUCTION 

♦write real return into NOP for .ENTR.P 

* 

♦set next fetch address 

♦write real return into NOP for .ENTN, C 

♦write real return into NOP 

♦if .ENTR, .ENTN then 

* that's all folks. 
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07A5 


a:=s3, If not f then rtn; 


07A6 


a:=sl, rtn; 


07A7 


.entquit; 


07A7 


p:=fa, fchb, rtn; 


07A8 




07A8 


.setp: 


07A8 


call IfflJREAD; 


07A9 


ct:-t; 


07AA 


If yz goto .setpend, 


07AA 


nop:"b; 


07AB 


if bl5 goto .setprst. 


07AB 


ct:='c;t+acc; 


07AC 


.setplp: 


07AC 


wrp:-a, 


07 AC 


If iritp goto .setplntp; 


07 AD 


.setpcont: 


07AD 


a:=a-ac;c, ip. 


07AD 


if not ctz goto .setplp; 


07AE 


.setpend: 


07AK 


b:»p and 0x7fff:; 


07AF 


p:=fa+2; 


07B0 


.setpfetch: 


07B0 


.cpmeq: 


07B0 


fchp, rtn; 


07B1 


•setplntp; 


07B1 


b:-p lor 0x8000; 


07B2 


a:-ct; 


07B3 


fchb, p:~fa, rtn; 


07B4 


.setprst: 


07B4 


ct:-a, rdb, bbus/b; 


07B5 


p:-b; 


07B6 


a:=t, goto .setpcont; 


07B7 




07B7 


.cpm: 


07B7 


call INDKEAD; 


07B8 


sO:-t, 


07B8 


rdp, ip; 


07B9 


call INDREAD, sl.:=p-acc; 


07BA 


s2:-sO-t; 


07BB 


if yz goto .cpmeq; 


07BC 


goto .dcoending; 


07BD 




07BD 




07BE 





*for .ENTP leave rtn in A 

*for .ENTC leave rtn in A 

*INTERRUPT 

♦restart the instruction 

*SET POINTERS 

♦indirect on DEF (manual is vnrongo) 

♦retrieve count 

*is it zero?? 

* y: quit 

* n: is it interrupted? 

* (synchronize count) 
*SETP LOOP 

♦write location specified by B 

♦check for interrupts 

* 

♦increment location 

* UNTIL COUNT IS ZERO 
♦END IT 
♦b:=orlginal b + count 

♦point p to next opcode location 



♦INTERRUPT 

♦save this location in B (bl5 flags intp) 

♦save count in A 

♦that's all 

♦RESUME AFTER INTERRUPT 

♦count := A, read new value 

♦place this address into P 

♦replace next value into A 

♦COMPARE MEMORY LOCATIONS 

♦ace:" -2 

♦save first operand 

♦read second def 

♦si: "less than skip location 

♦compare them 

♦equal? y: p is set up 

♦n: finish up using .dco routine 



MPARA source listing 

0000 MPARA; ♦virtual memory access 



<820204.1550> 



0600 $orlgin 0x600$ ♦file = &VMA <820204.1550> 

0600 ♦Dedicated registers: 

0600 ♦ PRIN(0)-U8er map 30. 

0600 ♦ PRIN(l)"Page number of page table and working set offset. 

0600 {The VM instructions are divided into two groups. .PMAP maps a logical 

0600 page in A acording to a page ID in B. The others map a VM address Into 

0600 page 30 and 31 returning the appropriate logical address in B. 

0600 .LBF has the VM address In A and B. 

0600 .LBPR has a DEF to the VM address. 

0600 .LPX has an address in AB and a DEF to an address. The addresses are 

0600 added to form the VM address. 

0600 .LPXR is like .LPX but uses two DEFs. 

0600 .IRES resolves Eirray parameters to form a VM address returned in AB. 

0600 .IMAP Effectively .IRES then .LBP. 

0600 .JRES Like .IRES but double-integer subscripts (and dimension sizes). 

0600 .JMAP Like .JRES then .LBP. 

0600 All of these have the "local reference" option. If the VM address is 

0600 negative, the least-significant 16 bits are treated as a local address. 

0600 Indirects are resolved and the direct address is returned in B.} 
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0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

0600 

018A 

018A 

018B 

018B 

018B 

018B 

OlSB 

018B 

018B 

0600 

0600 

0600 

0601 

0601 

0604 

0604 

0605 

0606 



***************************************************************** 



* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* — 



EXECUTION TIMES (250 nsec. cycle) 
cycles(usec. ) 



Local 
reference 

7 (1.75) 

13 (3.25) 

17 (4.25) 

22 (5.50) 

24(6.00)+I 

24(6.00)+J 



First VMA 
after intr. 

47 (11.75) 

53 (13.25) 

59 (14.75) 

71 (17.75) 

58(14.50)+! 

58(14. 50)+J 



Normal case 
(no fault) 

.LBP 25 (6.25) 

•LBPR 28 (7.00) 

.LPX 31 (7.75) 

.LPXR 37 (9.25) 

.IMAP 39 (9.75)+I 

•JMAP 39 (9.75)+J 

.IRES 20(5.00)+I 

.JRES 20(5.00)+J 

114(3.50) with FPPI 
I»[#dimensions]x[12(3.00)+|26(6.50) without |1 

I or 46(11.50) I 

114(3.50) with FPPI 
|26(6.50) without 1 
J-[#dimensions]x[16(4.00)+l or 46(11.50) l]+2(.50)if 

I or 50(12.50) | at least 
I or 88(22.00) | one dim. 

For all instructions above except .IRES and .JRES add 
3(.75) if last page in suit (one case in 1024), and 
add 5(1.25) if last page of VMA. Add 4(1.00) per 
indirect level in local-reference addresses and 2(.50) 
per level of indirect in DEF reads 



.PMAP 



Normal 

Sign bit 
set in A 

Last-plus-one 
page mapped 

Normal post 
interrupt 

A-register not 
in range [0,31] 



20 (5.00) 



24 (6.00) 



23 (5.75) 



37 (9.25) 



* 

* 
* 
* 

* 
* 
* 
* 

* 
* 
* 
* 
* 

^.. „..„ 13 (3.25) * 

***************************************************************** 
$DEFINE ADRL/PROCESS_DISPATCH OXDO$ 
$DEFINE ADRL/PRIV_TRAP 0XF3$ 
$DEFINE ADRL/DIM 0X1B9$ 



$ORIGIN 0X18A$ 
VMA_ENTR: GOTOTBL VMA_BL0C, BBUS/A, STOR/N; ************ 
*Location In jump table corresponding to 105240. 
*0nes go to N. BBUS gets A to test for local reference 
*in .LBP. 

*Thls block decodes individual VMA instructions. In 
*most cases the DEF is read and next address goes to SO. 
*N is bumped to get zero in it. 
VMA_BLOC: $ORIGIN 0X600$ 

PMAP:{00}A:-A-ACC, IN, GOTO S1_PMAP; 

{01} *.PMAP bumps A early. This must be 

{02} * accounted for later. 

{03} $0RIG1N 0X604$ 
IRES:{04}RDP, P:-P-ACC, GOTO S1_IRES, CLE; 
JRES:{05}RDP, P:»P-ACC, GOTO S1_IRES, STE; 

{06} 
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0608 
0608 
060A 
060A 
060C 
060C 
060D 
060E 
060F 
0610 
0610 
0611 
0612 
0613 
0614 
0614 
0614 
0614 
0614 
0614 
0614 
0614 
0615 
0616 
0617 
0618 
0618 
0618 
0618 
0619 
061A 
061A 
061A 
061A 
06U 
061A 
06 lA 
061A 
061A 
06 lA 
061B 
061C 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061D 
061E 
061F 
06 IF 
0620 
0621 
0622 
0623 
0623 
0623 
0624 
0624 
0625 
0625 
0625 
0626 
0627 
0627 



{07} $0RIGIN 0X608$ 
IMAP:{08}RDP, P:=P-ACC, GOTO S1_IMAP, CLE; 

{09} $ORIGIN 0X60A$ 
JMAP:{0A}RDP, P:=P-ACC, GOTO S1_IMAP, STE; 

{OB} $ORIGIN 0X60C$ 
LPXR:{OC}RDP, S0:=P-ACC, GOTO S1_LPXR, IN; 
LPX:{OD}RDP, SO:=P-ACC, GOTO S1_LPX, IN; 
LBPR:{OE}RDP, SO:=P-ACC, GOTO S1_LBPR, IN; 
LBP:{OF}ACC:=0176OO0, BBUS/A; 
S1:=RR1(B AND ACC), 

IF B15 GOTO LR_LBP; 
X:=RR1(N0T ACC AND A); 
SO:=P, IN; 
S7:=ACC lOR B, LGOTO VMA_MAP2; 

*.LBP immediately checks for local reference. Return value 
*cif P is saved in SO. N gets zero; ACC gets mask. Extrac- 
*tion of PAGID begins. S7 gets value that will become 
*ph3'sical address returned in B. 



LR__LBP: IF B15 CALL RES_INDB; *Resolve any indirect 

NOP:-T, RTN, FCHP; *address in B and return. 

RES_INDB: NOP:=B, RDB; *Read address in B. Load 

B:=T, LGOTO CONT_RIB; *to B and jump to "continue_ 
*resolve indirect in B." 



S1_1RES: 
SI IMAP: 



SI PMAP: 



PNEG: 
N_INITP1: 

81 LBPR: 



LGOTO S2_IRES, S6:=ZER0; *Go to "segment_two." N gets 
LGOTO S2_IMAP, N:=ZERO; *Eero in IMAP because we need 

*to get PRIN(O) to test for 
♦initialization of micro regs. 
*S6 and S7 will get resolved VM 
*address; they must be set to 
♦before entering resolve loop. 
*Note that these also link JRES 
*and JMAP. E Is used to flag 
*I vs. J. 

SRIN:=PR1N-ACC, IN, IF B15 GOTO PNEG; 

IF YZ GOTO N_INIIP1, CLE; 

MAP:=PRIN, LGOTO S2_PMAP; 

*MPAR gets user data map 
♦register 31 to prepare for 
*PTE read. N increments to 0. 
*If A had sign bit set on entry 
*we branch to "PMAP_negatlve" 
*code which handles the case 
*when faults must cause 
*a P+1 exit. This lets $VMA$ 
*call PMAP without the poss- 
*ibility of recursion. 
*If PRIN(0):=ONES we branch to 
*code that restores A then sets 
*up PRINs. E is cleared since E 
*set on return indicates LASTt-1. 
*MAP gets page where PTE is. 

LGOTO S_PNEG; 

A:-A+ACC, LGOTO NOT_INIT; 

ACC :=0 176000; 

P:=T, RDB; 

IF B15 CALL RES_INDR, IP; 

X:»RR1(N0T ACC AND T) , RDP; 

IF B15 GOTO LR_LBPR, 

S1:=RR1(ACC AND T); 
S7:=ACC lOR T, 

LGOTO VMA MAP2; 



*ACC gets mask 6-ls-lO-Os. 
*P gets value of the DEF. 
*Indirects resolved and P 
*bumped to read second word 
*of VM addr. Extraction of 
*PAGID begins. LOCAL_REF if 
*sign of MSW is set. Start 
♦generation of log addr in 
*S7(i.e. llllllaaaaaaaaaa) . 



*LOCAL_REF for LBPR. P is 
LR_LBPR: B:=T,, IF B15 CALL RES_INDB; *restored from SO. 
P:=SO, LGOTO FIN_LR; 

*RESOLVE_INDIRECT resolves 
RES INDR: P:=T., RDB; *indirect addr in P. P is 
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0628 

0629 

062A 

062B 

062B 

062C 

062D 

062D 

062D 

062E 

062F 

062F 

0630 

0631 

0632 

0633 

0633 

0634 

0634 

0634 

0635 

0635 

0636 

0636 

0637 

0638 

0639 

063A 

063B 

063B 

063B 

063B 

063B 

063B 

063B 

063B 

063B 

063C 

063C 

063C 

063C 

063D 

063D 

063D 

063E 

063F 

0640 

0640 

0641 

0641 

0642 

0643 

0643 

0643 

0643 

0644 

0645 

0645 

0645 

0645 

0645 

0646 

0646 

0647 

0647 

0647 

0647 

0647 

0647 

0648 

0648 

0648 

0648 

0649 

0649 



IF NOT B15 THEN RTN, IP; 
P:=T, RDB; 
RES_L00P: IF NOT B15 THEN RTN, IP; 
P:=T, RDB, 

IF NOT INTP GOTO RES_L00P; 
PRC_DSP1: LGOTO PROCESS DISPATCH, P:=FA; 



*bumped to read possible 
*double-word number. 



LOC REF: 



SI LPXR: 



B:=S7, IF B15 CALL RES_INDB; *LOCAL_REF other routines. 
P:=SO, LGOTO FIN_LR; *S7 holds LSW of VM addr. 



P:=T-ACC, RDB; 
IF B15 CALL RES_INDR; 
S6:=T, SPO/RDP; 
P:=SO, LGOTO S2 LPXR; 



SI LPX: LGOTO S2 LPX; 



S2 LPXR: 



S7:=T, SP2/RDP; 
********* 

P:=T-ACC, RDB; 

IF B15 CALL RES_INDR, 

SO:=SO-ACC; 
S6:=S6+T, SPO/RDP; 
ACC:=0176000; 
S7:=S7+T, IN; 
S6:=>S6+CF; 



VMA MAPI: 



ABUS/ACC, BBHS/S6, STOR/X, 

ALU/CAND, SPO/RRl; 
{X:=RR1(N0T ACC AND S6);} 

S1:=RR1(ACC AND S7), 
IF B15 GOTO L0C_REF; 



*DEF comes back for MSW 

*of VM base address. 

*S6 gets MSW. Read begins 

*LSW. P gets addr of 2nd 

*DEF. 

♦Branch while wait for DEF. 

*LSW of VM base addr goes to 
*S7. Read DEF for VM offset 
*addr. Start read of MSW of 
*offset. P gets addr of LSW. 
*Resolve Indrs. SO is Inc'ed 
*to point to instr after 
*LPXR. Offset added to S6,S7. 
*ACC gets mask. 
*N to 1, then for com- 
*patlbiHty with IMAP. 

*PAGID extracted by following 
♦operations. A ten-bit right 
*shift of double word required 

*Each word masked and shifted 
*once. LOCAL_REF test is also 
*done here. Words merged and 
♦shifted, then byte-swap com- 
♦pletes shifting. 



VMA MAP2: 



S7:=ACC lOR S7, DN; 
X:=RR1(X lOR SI); 
X:=SWAP(X); 

SRIN:=PRINfONE; 

IF YZ GOTO NOT_INIT, 

P:=ACC lOR X, IN; 
MAP:=PRIN, CLO, DN; 



SRIN:=PRIN, SPO/RDP, IP; 
BBUS/P, S4:-075777; 



**** *ihis is the first step in 

♦calculating the addr returned 
♦in B. 



♦N=0 here. MPAR = user map 31. 
♦If PRIN(0)=ONES registers are 
♦not initialized. P gets log 
♦address in pg 31 for PTE read. 
♦Map register 31 gets page# of 
♦PTE. 

♦MPAR gets user map 30. First 
♦PTE read begins. P tested to 
♦see if incr results in oflo. 
♦Mask for addr returned in B 
♦goes to S4. 



IF NOT B15 GOTO OVER, 
S3:=-N0T ACC ,«ID T, 

IF YZ THEN STO, 
MAP:=S3+PRIN; 



IN; ♦Mask off segment if. Set if 
♦Last+1 or null flag. Load map 
♦register 30 with base(PTE pg) 
♦plus offset. 
{At this point mapping of page 30 has occurred. Even though we may 
fault on this page, we are OK because the page will be mapped 
again when the microcode is restarted.} 



FIN MAPI: 



S1:=X XOR T, SPO/RDP; 



IF GOTO SP_CASE1, 

NOP:=ACC AND SI, CLE; 



♦Do segment if's match? Start 
♦read of second PTE entry. 

♦If set( indicating O's in 
♦lower bits of PTE entry), 
♦branch to special_case code. 
♦Complete test of segment its. 



E-55 



Appendix E 



0649 

0649 

0649 

0649 

0649 

0649 

0649 

064A 

064A 

064A 

064B 

064B 

064C 

064D 

064D 

064E 

064E 

064F 

064F 

064F 

064F 

064F 

064F 

064F 

064F 

064F 

064F 

0650 

0651 

0651 

0652 

0652 

0653 

0654 

0654 

0654 

0654 

0654 

0654 

0655 

0656 

0657 

0657 

0658 

0659 

0659 

065A 

065A 

065B 

065B 

065B 

065B 

065B 

065B 

065B 

065C 

065C 

065D 

065E 

065E 

065F 

065F 

065F 

0660 

0661 

0662 

0662 

0662 

0662 

0662 

0663 

0664 

0665 

0665 

0666 



*E is used as a flag to show 
*whlch page caused "problem." 
{E is undefined after VMA call other than .PMAP. Ihls code returns 
with E clear. Coding restrictions forced me to use E as a flag.} 



FIN_MAP2: IT NOT YZ GOTO PG_FLT1, 
ACC:-NOT ACC AND T; 

IF YZ GOTO SP_CASE2, 
MAP:-ACC+PRIN, STE; 

FIN_MAP3: S3:-X XOR T, CLO; 

M0P:=S3 AND 0176000; 
IF NOT VrZ GOTO PG_FLT2, 

P:=SO; 
B:=S7 AND S4, CLE, 
FCHP, RTN; 



*Fault on no match. Mask off 
♦segment # of 2nd PTE entry. 

*Last+l or null again. Load 
*map 31. Again use E as flag. 

♦Segment #s match? Clear 
*for return. 

♦Restore program counter for 
♦return. B gets logical addr. 
♦E is returned clear. Fetch 
♦next instruction. 



{The following code handles various "anomalies."} 



OVER: 



SP CASEl: 



SP CASE2: 



NF PI: 



NULL FLT: 



PG FLT2: 



PG FLTl: 



PFLT: 



IF YZ THEN STO, 

MAP:=S3+PRIN; 
S3:-T, STF; 

P:=ACC; 



♦OVER: handles case when 1st 
♦entry read is last entry of 
♦PTE table. 

♦Last+1 or null. Load map 30. 
♦Save second PTE entry. Set F 
♦so that SP_CASE1 and PG_FLT2 
♦know we have been here. 
♦Set P to read first PTE 
♦location. ( 1 111110000000000) 
♦Segment its match? Read 2nd 



S1:=X XOR T, SPO/RDP; 

X;=X-fONE, GOTO F1N_MAP1; ♦entry. Bump PAGID. 

♦This code handles "LAST+l" 
♦page of VMA and null entry 
♦faults. 



IF NOT F THEN STOR, 

S3:=S1 XOR X; 
IF H THIEN STOR, S3:=T; 
N0P:=S3 INOR 01777; 
IF YZ GOTO NULL_FLT, 

N:=ZER0; 
SRi;S:=SRIN-l; 
MAP:=ACC XNOR ACC, IN, 

IF E GOTO FIN_MAP3; 
NOP:=ACC AND 81, 

GOTO FIN MAP2; 



NOP:=P AND 01777; 
IF YZ THEN STOR, 

X:==X+ACC; 
GOTO PG_FLT1; 
IF NOT E GOTO NF_P1, 

ACC:=ONES; 



♦Determine what the PTE entry 
♦was that resulted in anomaly. 
♦A null flag perhaps? 



♦Must be L+1. Restore MPAR. 
♦Map register is R/W protected. 
♦Return to VMA_MAP. Fault is 
♦still possible on this page. 



♦The following code handles 
♦the various kinds of faults. 
♦The San Andreas not included. 



♦If OVER incremented PAGID, 
♦put it back the way it was! 



♦Fault due to null entry. 



IF NOT F THEN FCIN, X:=X 
Y: "074000; 
N:-ZERO, CLF, CLO; 



♦Bump PAGID if OVER didn't. 
♦Set Y to logical addr of 1st 
♦PTE entry. $VMA$ manipulates 
♦PTE thru map 30 if non-PMAP 
♦fault on first page. F is 
♦cleared to avoid P+1 return. 
♦0 clear cause fault not PMAP. 

IF E THEN FCIN, SRIN:-PRIN;^MPAR=USER_MAP_30+E 

IF NOT E GOTO FAULT, IN; 

Y: -076000; ♦Change Y if PMAP or 2nd page. 



FAULT: P:=4; 

MAP:=PRIN; 



♦Where is $VMA$? Addr is at 4. 
♦Load map reg with page of 
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0667 

0668 

0669 

0669 

066A 

066A 

066B 

066C 

066C 

066D 

066E 

066F 

066F 

066F 

066F 

066F 

066F 

066F 

066F 

0670 

0670 

0670 

0670 

0670 

0671 

0672 

0673 

0674 

0674 

0674 

0674 

0674 

0675 

0676 

0676 

0677 

0677 

0677 

0677 

0678 

0679 

0679 

0679 

067A 

067B 

067C 

067D 

067D 

067D 

067E 

067E 

067E 

067E 

067E 

06 7E 

06 7F 

0680 

0680 

0681 

0682 

0683 

0684 

0684 

0685 

0686 

0687 

0687 

0688 

0688 

0689 

068A 

068B 

068B 

068B 

068B 



PNF: 



SPO/RDP, ACC:=ONES; 
P:=T, CLE, IF F GOTO PNF; 
WRP:=FA, IP, 

IF YZ GOTO DM_AB0RT; 

SPO/RDP; 

NOP:=T XOR 0104400; 

IF NOT YZ GOTO DM_ABORT, 

ACC:=0NES; 
IF F THEN STOR, r 
FCHP, RTN; 



*PTE. Read 4 and put addr In 
*P. Store fetch address for 
*restart at 1st loc of $VMA$ 
*and abort if addr given is 0. 
*Do not store if PMAP P1-1. 
*Read 1st instr of $VMA$, 
*must be DST, abort if not. 



*F is set if PMAP IM-1 exit 
FA-ACC; *required. Fetch next 
♦instruction. 



*lhe following code initializes 
♦internal VMA registers after 
*an interrupt. 



NOT INIT: 



S1:=MEMR, LGOTO LINK2; 



*Save present MEMR. 



{LINK2: S2:=MEMR and 037; *Get map set #. 

MEMR:=ZER0, LGOTO LINKl;} *Set map set 0. 



LINKl: P:=2; 

SPO/RDP, P:=FA; 
S2:=RL4(S2), IP; 
S2:=LL1(S2); 



PRIN:=T and 077777; 
DN; 

IF B15 GOTO VMN_rNIT, 
MEMR:=S1; 



*Read location 2 of system map. 
*Ihls is the page # of PTE. 
*Set P to fetch addr plus one. 
*We are going to "restart" the 
♦instruction. Map set # is left 
♦shifted five so that we can 
♦calculate what user map 30 is. 

♦Mask sign bit off PTE page #. 
♦N goes to 0. Cond flags stay. 
♦If PTE page had sign set, VM 
♦system is not initialized. We 
♦must do an "uninitialized 
♦fault." Also restore MEMR. 



PR1N:=S2 lOR 036; ♦PRIN(O) gets user map 30. 

ACC:=ONES, LGOTO VMA ENTR; ♦Restart Instruction. 



VMN_INIT: PRIN:=S2 lOR 036; 
SRIN:=PRINfONE; 
Y:=0176O00; 
GOTCi FAULT, IN; 



DM_AB0RT: P:=FA, LGOTO PRU/ TRAP; 



S2_PMAP: P:-B lOR 0176000; 

NOP:=A+O177737; 
CON_PMAP: IF CF GOTO REG_ERR, 
RDP, N:=ZERO; 

SRIN:=PRIN-ACC; 

S3:=B XOR T, CLE; 

S2:=T AND 01777; 

IF YZ GOTO SP_PMAP, 
MAP:=ACC; 

S4:=PRIN-31; 

SRIN:=A+S4, IN; 

N0P:=S3 AND 0176000; 

IF NOT YZ GOTO PMAP_FLT, 

P:=FA-ACC; 
MAP:=S2+PRIN, IP; 
END_PMAP: B:=B-ACC, FCHP, RTN; 



♦PRIN(O) gets user map 30. 
♦MPAR gets user map 31. 
♦Sign bit set in Y tells $VMA$ 
♦that this is an "uninitialized 
♦fault." N goes to one. 



♦.PMAP code follows. 



♦P gets logical addr for PTE 
♦read. Is logical pg to be 
♦mapped > 31. If so ERROR! 
♦Read PTE. N gets zero. 
♦MPAR gets user map 31. 
♦Segment #s match? E is 
♦returned clear unless L+1. 
♦Null entry or LAST+1. R/W 
♦prot 31 so user can't trash 
♦page table. Calculate abs 
♦page # given logical page #. 
♦Recall A has been bumped! N=l 
♦Segment #s match? Set P to 
♦Fetch address plus two. 
♦Map page. 
♦Bump B. 
♦Fetch next instruction. 



♦PMAP anomalies follow. 
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068B 

068B 

068C 

068D 

C68E 

068F 

0690 

0691 

0692 

0693 

0693 

0694 

0695 

0696 

0697 

0697 

0698 

0699 

069A 

069A 

069A 

069B 

069C 

069C 

069C 

069C 

069D 

069E 

069F 

06A0 

06A1 

06A1 

06A2 

06A2 

06A2 

06A2 

06A2 

06A3 

06A4 

06A5 

06A6 

06A7 

06A7 

06A8 

06A8 

06A9 

06A9 

06A9 

06A9 

06A9 

06AA 

06AB 

06AC 

06AD 

06AE 

06AF 

06AF 

06B0 

06B0 

06B1 

06B2 

06B2 

06B3 

06B4 

06B5 

06B5 

06B6 

06B6 

06B7 

06B8 

06B8 

06B8 

06B8 

06B8 



SP_PMAI': NOP:=T INOR 01777; 

IF YZ GOTO PMAP_FLT; 

N0P:=S3 AND 0176000; 

IF NOT YZ GOTO PMAP_FLT; 

S4:=PRIN-31; 

SRIN:=A+S4, STE; 

P:-FA+2; 

MAP:=ACC, LGOTO END_PMAP; 

PMAP_FLT: A:-A+ACC, STO; 
N:-ZERO; 

SRIN:=PRIN-ACC, IN; 
X:==B, LGOTO PFLT; 

REG_ER]i: A:==80; 

P:==FA+ONE; 
FCHP, RTN; 

S_PNEG: IF YZ GOTO N_INITP2, 
A:=A+ACC; 
MA]!':=PRIN, CLE, STF; 



S1:=A AND 077777; 



*Null entry? 

*Segment Its match? 

*Calculate abs page if. Set 
*E to indicate LAST+1. Set 
♦program counter for return. 
*R/W protect LAST+1 page. 
♦Restore A. 
*Set so $VMA$ knows 
*PMAP faulted. N gets zero. 
*MPAR = user map 31. N gets 



1. 



A: 
P: 
NO 



A-ACC; 

B lOR 0176000; 
P:=S1+0177740; 



*X gets PAGID that caused fit. 

*A gets error code 80 decimal. 
*Error return at IM-1. 
*Fetch next instruction. 

♦Restore A. 

*Load map reg for PTE read. 

♦Clear E for normal return. 

♦Set F so fault will cause P+1 

♦return. 

♦Strip sign bit. 

♦Bump A again. 

♦P gets log addr for PTE read. 

♦Logical page # > 31? 



LGOTO CON PMAP; 



N INITP2: LGOTO NOT INIT; 



CONT_RIB: IF NOT B15 THEN RTN; 
NOP:=B, RDB; 
B: = T; 
RIB_LOOP: IF NOT B15 THEN RTN; 
NOP:=B, RDB; 
B:=T, IF NOT INTP 

GOTO RIB LOOP; 



♦Resolve indirect addresses 
♦and store direct addr in B. 



♦Interrupt causes restart. 
P:=FA, LGOTO PROCESS DISPATCH; 



S2 LPX: P:=T, RDB; ♦DEF comes back. Resolve 

~ IF B15 CALL RES_IND8, IP; ♦if indr. Load P and bump 

S6:=A+T, SPO/RDP; ♦to read 2nd word. Add value 

ACC:=0176000; ♦to A,B; store to 86, S7. ACC 

S7:=B-hT; ♦gets mask. 

S6:=S6+CF; 

ABUS/ACC, BBUS/S6, STOR/X, ♦See VMA_MAP1. Must copy code 

Al^U/CAND, SPO/RRl; ♦cause long branch required. 
S1:=RR1(ACC AND S7), 

IF B15 GOTO LR_LPX; 
S7:=ACC lOR S7 , LGOTO VMA_MAP2; 

LR_LPX: LGOTO LOC_REF; 
PRC_DSF2: P:=FA, LGOTO PROCESS_DISPATCH; 
RES INIB: LGOTO RES INDR; 



FINM.R: NOP:=T, FCHP, RTN; 

LINK2: S2:==MEMR AND 037; 

MEMR:=ZER0, LGOTO LINKl; 



♦Finishes local reference. 
♦NOP: =T makes sure read 
♦is finished. 

♦See LINKl. 



{Itegin array address resolving code.} 



E-58 



Appendix E 



06B8 
06B8 
06BF 
06BF 
06CO 
06C0 
06C0 
06CI 
06C2 
06C3 
06C3 
06C3 
06C3 
06C3 
06C3 
06C3 
06C3 
06C3 
06C3 
06C4 
06C4 
06C5 
06C6 
06C7 
06C8 
06C8 
06C9 
06C9 
06CA 
06CB 
06CB 
06CC 
06CD 
06CD 
06CE 
06CF 
06D0 
06D0 
06D1 
06D2 
06D3 
06D4 
06D5 
06D6 
06D7 
06D8 
06D9 
06DA 
06DA 
06DB 
06DC 
06DD 
06DE 
06DF 
06E0 
06E0 
06E1 
06E1 
06E1 
06E1 
06E1 
06E2 
06E3 
06E4 
06E5 
06E6 
06E7 
06E8 
06E8 
06E8 
06E8 
06E8 
06E8 
06E9 
06E9 



S2 IRES: 



$ORIGIN 0X6BF$ *X gets the addr of the 2nd 
X:=T-ACC, RDB, CALL RESOLV;*elem in the array parameter 

*table. Call resolve subr. 



P:=SO; 

A:=S6, FCHP; 
B:=S7, RTN; 



*Save return point in SO. 
*VMA address to S6,S7. 
*Fetch next instruction. 



*The code below has to test for 
*uninitlallzed case before 
*resolving the address. .IRES 
*and .JRES do not test this at 
*all. "this results in different 
*entry points to RESOLV. 

S2_IMAP: X:=T-ACC, RDB; *As above followed by Indr 

IF B15 CALL RES_INDX, *resolver. S6 gets zero. 

S6:=ACC+0NE, BBUS/PRIN; *Test PRIN(O). Clear S7. 

IF B15 GOTO INI, S7:=ZER0, IN; *N goes to one. 

Y:= -T, SP2/RDP, CALL MAP_RES; *Y gets -# of dimensions. 

LGOTO VMA_MAPl; *Read 1st subscript. 

INI: LGOTO NOT INIT; 



RESOLV: 



MAP_RES : 
RLOOP: 



IF B15 CALL RES_INDX, IN, S7:=ZER0; *Re solve indrs loading 

Y:= -T, SP2/RDP; *addr to X. Y gets the 

*negated loop count. 
*If loop count 0, ter- 
*minate routine. Indrs 
*are resolved for subs 

IF B15 CALL RES_IND2, CT:=LL1(ACC) ; *DEF. CT gets +1. 

IF NOT E GOTO NOT_J, CT:=NOT CT; 



IF YZ GOTO END_RES, ACC:=ONES, IP; 
S2:=T-ACC, RDB; 



NOT J: 



HERE: 
ENTZ: 



S6:=S6+T, DCT; 

RDB, BBUS/S2, IF INTP 

GOTO PRC_DSP6; 
S1:=S7+T; 

S0:=S6+CF, BBUS/T; 
IF B15 THEN STOR, SO:=S0-CT; 
X:-X-ACC, RDB, IF NOT E GOTO I; 
NOP:=Y+0NE; 
S2:=T, IF YZ GOTO I; 
X:=X-ACC, RDB; 
S3:=T, LCALL DIM; 
Y:=Y+ONE, SP2/RDP, GOTO THERE; 

S3:=T, IF INTP GOTO PRC_DSP6; 

S2:=ZER0, IF YZ GOTO ENIZ; 

LCALL DIM; 

Y:=Y+ONE, SP2/RDP, GOTO THERE; 

S6:=S1; 

S7:=ZER0, LGOTO HERE; 



*CT goes to for JRES/ 
* JMAP. Read 2nd word 
*of subscript in Jxxx. 
*Add word rtned to low 
*word of VM addr. Prop 
*carry & sign extend if 
*Ixxx. Read next dim size. 
*Last loop? The this is # 
*words/elem. Tteat like 
*Ixxx. Read 2nd word of 
*dim size and call rault. 
*Start read of next subscr 
*DEF. Last loop? 
*Set up Ixxx multiply. 
*lxxx treats dim size of 
*zero as 2**16. Sp-case 
*this. Last loop? Start 
*read of next DEF. 



THERE: IF NOT YZ GOTO RLOOP, ACC:=ONES, IP; 



END_RES: BBUS/T, ACC:=0176O00; 
S0:=P-1; 
P:=X, RDB; 
IP, N:=ZER0; 
S6:=S6+T, SPO/RDP; 
S7:=S7+T, IN; 
S6:=S6+CF, RTO; 



RES_INDX: X:=T-ACC, RDB; 

IF NOT B15 THE^ RIN, 
NOP:=ACC, BBUS/PRIN; 



*Finish array addr reso- 
*lution. Must add array 
*of f set. 

*Finish pseudoDEF read. 
♦Idask to ACC. Return addr to 
*S0. Read 1st word of off- 
*set. N will soon be 1. 
*Rfiad 2nd word. 

*Propagate carry. 



*INDIRECT ADDRESS RESOLVERS. 

*Table pointer will be in 
*X. PRIN must be on BBUS 
*to test for NOT INIT. ALU 
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06EA 




06EB 


RSX_LCiOP: 


06EB 




06EC 




06EC 




06ED 




06EE 




06EE 


RES_IHD2 : 


06EF 




06F0 




06F1 


RS2_L00P: 


06F2 




06F2 




()6F3 


PRC_DSP6 : 


06F4 




06F5 





X:=T-ACC, RDB; 

IF NOT B15 THEN RTN, 

NOP:=ACC, BBUS/PRIN; 
X:=T~ACC, RDB, 

IF NOT INTP GOTO RSX_LOOP; 
P:=FA, LGOTO PROCESS_DISPATCH; 



*inust not be zero so status 
*wlll be updated. 



S2: = T-ACC, RDB; 

IF NOT B15 THEN RTN; 

S2:=T-ACC, RDB; 

IF NOT B15 THEN RTN; 

S2:=T-ACC, RDB, 

IF NOT INTP GOTO RS2_L00P; 
LGOTO PROCESS DISPATCH, P:=FA; 



*S2 gets bumped address for 
*read of possible 2nd word. 



MPARA source listing 

0000 MPARA; *operating system set <820204. 1550> 

05E0 Sorigln 0x5E0$ *file = SiOSS <820204. 1550> 

********************************************************************* 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 



05E0 

05E0 

05E0 

05E0 

5EO 

05E0 

05EO 

05E0 

05E0 

05E0 

05E0 

05E0 

05E0 

05E0 

5E0 

018C 

018D 

05E0 

05E0 

05EO 

05E1 

05E1 

05E1 

05E1 

05E2 

05E2 

05E3 

05E3 

05E3 

05E4 

05E5 

05E6 

05E7 

05E8 

05E8 

05E8 

05E9 

5EA 

05EA 

05EA 

05EB 

05EB 

05EB 

05EC 

05EC 

05ED 

05ED 

05EE 

05EE 

05EE 

05EF 

05EF 

05F0 



*820107 SKK updated FWID to REV 2 

*820114 SKK fixed .SIP (was pure NOP, now skip if I/O interrupt) 

*820119 SFK updated FWID to REV 3 

*820128 SFK updated FWID to REV 4 

$define adrl/INDRDBL 0x735$ 
$deflne dat/ST_FWID 0x0200$ 

$origin 0xl8C$ goto os_branch, n:=ones; *opcodes 105300 - 105317 



os_table: $origin Ox5eO$ 
goto $origin Ox5e0$ 

.cpuid, acc:=lll(acc+acc) ; 
goto $origir. Ox5el$ 

.fwid,, 

ct:=b, 

dn; 
goto $orlgin Ox5e2$ 

• wf i; 

$origin Ox5e3$ 
.sip: 

ist:-lsi: xor 0x0100; 

ist:=;Lst xor 0x0100; 

if intp then ip; 

if intp goto refetch; 

fchp, rtn; 

OS branch: 

c't:=ct and 0x0003; 
goto os_table, ct30; 

.cpuid: 

fchp, a:=not ace, rtn; 

.fwid: 

acc:=ST_FWID; 

call .fwldtable, ct30, 

prin:=prin ior ace; 
prin:-prin and not ace, 

fchp, rtn; 



• wf 1 : 

if not intp goto . 
refetch : 

fchb, p:=fa, rtn; 



wf 1; 



*opcodes 105300 - 105317 

*CPU IDENTIFICATION INSTRUCTION 

* (loads A=3 for A700) 
♦FIRMWARE IDENTIFICATION INSIRUCTION 

* (branches to the last two words of each 

* IK module noted by B. 

* set n to N_ST for microcode status 
*WAIT FOR INTERRUPT INSIRUCTION 

* 

*SKIP IF I/O INTERRUPT PENDING INSTRUCTION 

* 

*unmask I/O interrupts (valid 2 cycles later) 

*remask I/O interrupts 

*skip if I/O interrupt 

*refetch if any other interrupt pending 

*that's all 

*assure that only four words of jumptable 

* are used 
* 

*A700 identification code is 3 
* 

♦branch to code that identifies each Ik 
*set special bit to Indication that JNM 

* may be caused by firmware checkout 
* 

♦identification complete, clear the bit 



*wait for interrupt 

* 

* 
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05F0 

05F0 

05F1 

05F2 

05F3 

05F4 

05F5 

05F6 

05F7 

05F8 

05F9 

05FA 

05FB 

05FC 

05FD 

05FE 

05FF 

0600 

03FE 

03FE 

03FF 

7FE 

07FE 

07FF 

0800 

0801 



•fwldtabl 
{0} goto 
{1} goto 
{2} goto 
{3} goto 
{4} goto 
{5} goto 
{6} goto 
{7} goto 
{8} goto 
{9} goto 
{A} goto 
{B} goto 
{C} goto 
{D} goto 
{E} goto 
{F} goto 



e: $origin 0x5F0$ 

0x0 3FE; 

0x0 7FE: 

OxOBFE 

OxOFFE: 

0x1 3FE; 

0x1 7FE^ 

OxlBFE: 

OxlFFE: 

0x2 3FE 

0x2 7FE 

Ox2BFE 

Ox2FFE 

Ox33FE 

0x3 7FE 

Ox3BFE 

Ox3FFE 



$orlgin Ox3FE$ 

a: =0x0401; 

rtn; 
$orlgin Ox7FE$ 

a: =0x0401; 

rtn; 



*0k 

*lk 

*2k 

*3k. 

*4k 

*5k 

*6k 

*7k 

*8k 

*9k 

*10k 

*llk 

*12k 

*13k 

*14k 

*15k 



*low byte = firmware package (l=base set) 

*hl byte = revision (revision 4) 

*low byte = firmware package (l=base set) 

*hi byte = revision (revision 4) 



This code causes a branch to a Ik bank 
specified by the contents of the 
B-reglster. If firmware is Installed, 
it should contain two lines of microcode 
to load the revision and package 
information into the A-reglster and rtn. 
If the firmware Is not Installed, the 
jump-to-nonexistent mlcromemory code 
In iCONTR will set the A-register 
to OxFFFF and fetch the next Instruction. 
Thus, special selftest opcodes are not 
required for checking firmware 
installation. 



MPARA source listing 

0000 MPARA; *USER and HP reserved opcodes <820204. 1550> 

0180 $orlgln 0x180$ *file = &USER <820204. 1550> 

********************************************************************* 

* (C) Copyright Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 



0180 
0180 
0180 
0180 
0180 
0180 
0180 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0186 
0187 
0187 
0188 
0189 
018A 
018B 
018B 
018C 
018D 
018E 
018E 
018F 
018F 
0190 
OlAE 
OlAE 
OlAF 
OlAF 
OlAC 
OlAC 
OlAD 
OlAD 
OlAA 
OlAA 
OlAB 
OlAB 
01A8 
01A8 



*opcodes 105000 - 105017 HP reserved 
♦opcodes 105020 - 105037 HP reserved 
♦opcodes 105040 - 105057 HP reserved 
♦opcodes 105060 - 105077 HP reserved 
♦opcodes 105100 - 105117 HP reserved 
105137 HP reserved 



105157 HP reserved 



105177 HP reserved 



$orlgln 0x180$ ♦VIS 

$origln 0x181$ ♦VIS 

$origln 0x182$ ♦VIS 

$origln 0x183$ ♦VIS 

$orlgin 0x184$ ♦reserved 

$orlgin 0x185$ ♦reserved ♦opcodes 105120 

$orlgln 0x186$ gototbl 0x0900, ♦opcodes 105140 

stor/n,bbus/cab; 
$origln 0x187$ gototbl OxOBOO, ♦opcodes 105160 

stor/n,bbus/cab; 
$orlgin 0x188$ ♦BASE SET: DIS ♦opcodes 105200 - 105217 HP reserved 
$orlgln 0x189$ ♦BASE SET: LIS *opcodes 105220 - 105237 HP reserved 
$orlgln 0xl8A$ ♦BASE SET: VMA ♦opcodes 105240 - 105257 HP reserved 
$origln 0xl8B$ gototbl 0x2800, ♦opcodes 105260 - 105277 HP reserved 

stor/n,bbus/cab; 
$origin 0xl8C$ ♦BASE SET: OSS ♦opcodes 105300 
$orlgin 0xl8D$ ♦SIS ♦opcodes 105320 

$origtn 0xl8E$ gototbl OxCDOO, ♦opcodes 105340 

stor/n,bbus/cab; 

gototbl OxOFOO, ♦opcodes 105360 

stor/n,bbus/cab; 



105317 
105337 
105357 



HP reserved 
HP reserved 
HP reserved 



$orlgin 0xl8F$ 



105377 HP reserved 



$origin Oxlae$ gototbl 0x0800, ♦opcodes 10(x01)400 - 10(x01)417 HP 

stor/n.bbus/cab; 
$origin Oxlaf$ gototbl OxOAOO, ♦opcodes 10(x01)420 - 10(x01)437 HP 

stor/n,bbu£/cab; 
$origin 0xlac$ gototbl OxOCOO, ♦opcodes 10(x01)440 - 10(xOl)457 HP 

stor/n,bbus/cab; 
$origin Oxlad$ gototbl OxCEOO, ♦opcodes 10(x01)460 - 10(x01)477 HP 

stor/n,bbus/cab; 
$origin Oxlaa$ gototbl 0x3000, ♦opcodes 10(x01)500 - 10(xOl)517 user 

stor/n,bbus/cab; 
$origln Oxlab$ gototbl 0x3200, ♦opcodes 10(x01)520 - 10(x01)537 user 

stor/n.bbus/cab; 
$origin 0xla8$ gototbl 0x3400, ♦opcodes 10(x01)540 - 10(x01)557 user 

stor/n,bbus/cab; 
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01A9 
01A9 
01A6 
01A6 
01A7 
01A7 

o:la4 

01A4 
01 A5 
01A5 
01A2 
01A3 
OlAO 
OlAl 
OlAl 
OlAl 
0196 
0196 
0197 
0197 
019E 
019E 
019F 
019F 
01B6 
01B6 
01B7 
01B7 
01B8 
01B9 



$origln 0xla9$ goCotbl 0x3600, *opcodes 10(x01)560 - 10(x01)577 user 

stor/n,bbus/cab; 
$origin Oxla6$ gototbl 0x2000, *opcodes 10(x01)600 - 10(x01)617 HP/user 

stor/n,bbus/cab; 
Sorigln 0xla7$ gototbl 0x2200, *opcodes 10(xOl)620 - 10(x01)637 HP/user 

stor/n,bbus/cab; 
$origin 0xl.i4$ gototbl 0x2400, *opcodes 10(x01)640 - 10(x01)657 HP/user 

stor/n,bbus/cab; 
$origin OxlaSS gototbl 0x2600, *opcodes 10(x01)660 - 10(xOl)677 HP/user 

stor/n,bbus/cab; 
$origin 0;icla2$ *BASE SET: DMS *opcodes 10(x01)700 - 10(x01)717 HP 
$origln Oxla3$ *BASE SET: DMS *opcodes 10(x01)720 - 10(x01)737 HP 
$origln OxlaO$ *BASE SET: EIG *opcodes 10(x01)740 - 10(x01)757 HP 
$origln 0xlal$ *BASE SET: EIG *opcodes 10(x01)760 - 10(x01)777 HP 

*include opcodes forced out for DIS.FPSG, FPDG 

$origin 0x196$ gototbl 0x0900, *opcodes 105140 - 105157, HP reserved 

stor/n,bbus/cab; 
$orlgin 0x197$ gototbl OxOBOO, *opcodes 105160 - 105177 HP reserved 

stor/n,bbus/cab; 
$origln Ox]9E$ gototbl 0x0900, *opcodes 105140 - 105157 HP reserved 

stor/n,bbus/cab; 
$origln 0xl9F$ gototbl OxOBOO, *opcodes 105160 - 105177 HP reserved 

stor/n,bbus/cab; 
$origln 0xlB6$ gototbl 0x0900, *opcodes 105140 - 105157 HP reserved 

stor/n,bbus/cab; 
$orlgin OxlB7$ gototbl OxOBOO, *opcodes 105160 - 105177 HP reserved 

stor/n,bbus/cab; 



MPARA source listing 

0000 MPARA; *microcoded self test and boot routine <820204. 1550> 



0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
,0007 
0008 
0008 
0009 
0009 
OOOA 
OOOA 
OOOA 
OOOB 
OOOB 
OOOB 
OOOC 
OOOD 
GOOD 
OOOD 
OOOD 
OOOD 
OOOD 



$origln 0x007$ *file = &SELFT <820204. 1550> 
********************************************************************* 

* (C) Cofiyrlght Hewlett Packard Company 1982. All rights reserved. * 

* No part of this program may be photocopied, reproduced or * 

* translated to another program language without the prior written * 

* consent of Hewlett Packard Company. * 
********************************************************************* 

$define adrl/B.ESEr_PU 0x2F2$ 
$define adrl/STARTJJP OxOCF$ 
$define sidrl/FAILTRAP 0x004$ 
$define adrl/TEST RESTART 0x001$ 



SELFTEST:: $orIgin 0x007$ 



PL DIAGNOSTIC: 



*link from &C0NTR module 

*begin lower processor diagnostic 



pl_b ranch: 

{ 

Begin the microcoded selftest 

Assure that YZ condition and conditional branches work 

} 

if not yz goto FAILTRAP, 

rOO:="not ace and ace; 
if yz goto pl_b_false, 
r01:'»acc xnor ace; 
pl_f allure: 

Igoto FAILTRAP; 
pl_b_falf3e: ^ 
if yz goto FAILTRAP, 
r02:-=r00 xnor ace; 
if not yz goto 
pl_regf lie, 
ct :=zeros ; 
Igoto FAILTRAP; 



*YZ condition: test true, no jump 
*rOO:=zeros 

* test true, jump 
* 
* 

*no brains at all! (put brakes on) 
*YZ condition set to FALSE 
*YZ condition: test false, no jump 
* 

* test false, jump 
* 

*CT:=zeros for later test. 
*only half crazy! 



pl_regf ile : 



{ 



Load the register file with unique immediate data. 
new microorders used: 
- op/iflim 
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GOOD 

GOOD 

GOGD 

GOOD 

GOOE 

OOOF 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

OOU 

OOIB 

OOIC 

OOID 

OOlD 

OOlD 

OOID 

OOlD 

OGID 

OOID 

OOID 

OGlD 

OOID 

OOID 

OOID 

OOID 

OOID 

GOID 

OOID 

OOID 

OOIE 

OOIE 

GOIE 

OOIF 

OGIF 

OG20 

0020 

0020 

0021 

0021 

0022 

0022 

0023 

0023 

0024 

0024 

0025 

0025 

0026 

0026 

0026 

0027 

0027 

0028 

0028 

0029 

0029 

0029 

002A 

002A 

G02B 

002B 

002C 

002C 

002C 

002D 

00 2D 

002D 

0G2E 



- alu/adac; 

- stor/rOO - stor/rl7 

rOO: =0x0001; * 

rOl: =0x0002; * 

rO 2: =0x0004; * 

r03:=0x0008; * 

r04:=0xGG10; * 

rO 5: =0x0 020; * 

r06:=0xOG40; * 

r07: =0x0080; * 

rlO:=Ox0100; * 

rll: =0x0200; * 

rl 2: =0x0400; * 

rl3:=0x0800; * 

rl4:=0xl000; * 

rl5:=0x2000; * 

rl6:=0x4000; * 

rl 7: =0x8000; * 



Do an exclusive or of all 
to random checks. The e 
the register file checks 

new microorders used : 

- abus or bbus rOG-rl7 

- bbus/q 

- stor/q and rOO-rl7 

- sp2/stf,clf , 

- spO/cle,ste,sto,clo,stor, Idq 

- alu/xor,ior,addc 

- cndx/yz,yl5,o,e,f ,bl5 



of the register file values, in addition 
xclusive or should come up all ones if 
and the random checks did not interfere. 



rlO:=rlO ior rll, 

cle, 

stf ; 
acc:=acc xor r05, 

if e goto faill, 

Idq; 
rl7:=rl6 xor rl7, 

if not e then ste; 
acc:=acc+rlO, 

if not e goto falll , 

cle; 
rOO:=rOG xor rOl, 

if not e then stor; 
rOO:=acc, 

if e then stor; 
rl4:=rl5 xor rl4, 

if not bl5 then clo; 
r07:=rG6 xor r07, 

if yl5 then ste; 
rl3:=rl2 xor rl3, 

if o then ste; 
r03:=r03 xor r02, 

sto, 

elf; 
r01:=r00 xor rl7, 

if not o then ste; 
rll:=r03 xor rl4, 

if f then ste; 
rl5:=rl3 xor r07, 

stf, 

Idq; 
acc:=acc xor q, 

if not f goto faill; 
rl2:=r01 xor rll, 

if yl5 then ste; 
acc:=acc xor rl2, 

if e goto falll, 

Idq; 
if not yl5 goto faill, 

nop:=not ace, 

spl/acf ; 
if not yz goto faill. 



*rlG:=0300 

*cle (pretest should further test sto in asgs) 

*stf 

*acc:=0030 

*check e value 

*load q 

*rl7:=c00G 

*try spOt — should ste 

*acc:=0330 

*check e — should be set 

*cle 

*r00:=OOG3 

*try stor — should store 

*rOG:=0330 

*try stor — should not store! 

*rl4:=3000 

*check bl5 — should clear o 

*r07:=0GcG 

*check yl5 — should be false 

*rl3:=0c00 

*check alov — should be clear 

*r03:=000c 

*sto 

*clf 

*r01:=cG03 

*check o — should not ste 

*rll:=300c 

*check f — should not ste 

*rl5:=GccO 

*stf 

*load q 

*acc:=OffO, use q 

* 

*rl2:=F00F 

*check bl5 — should not ste 

*acc:=FFFF 

*check e — if set then failed test 

* 

*acc should equal all ones 

*nop:=OOOG 

*try acf — no carry 

*test for all ones 
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002E 

002F 

0030 

0031 

0031 

0031 

0031 

0031 

0031 

0031 

0031 

0031 

0031 

0032 

0033 

0033 

0034 

0035 

0035 

0036 

0036 

0037 

0037 

0037 

0038 

0038 

0039 

0039 

003A 

003A 

003B 

003B 

003B 

003B 

003B 

003B 

003C 

003C 

00 3D 

00 3D 

003E 

003E 

003E 

003F 

003F 

0040 

0040 

0041 

0041 

0042 

0042 

0043 

0043 

0044 

0044 

0045 

0045 

0045 

0046 

0046 

0047 

0047 

0047 

0048 

0048 

0048 

0049 

0049 

004 A 

004B 

004B 

004C 

004C 

004C 

004C 



*Check for stuck at ones, stuck at zeros and 

* stuck to adjacent. 

* 

*Try other sense, (load q with this pattern) 
*CT gets zeros. 



nop:"lll(zeros); *nop:= or 1 based on DW 
If yz goto pl_ct_load; *check for complementing the DW bit 
cmdw; *complement It to set It to zero 

pi ct load: 
{ 

check ctz condition by hedging against alu. 
new mlcroorders used: 

cndx/ctz ,c tz4 

bbus,,sl:or/ct 

spl/fcin 
} 

ct:=0x;)555; 

nop:=ct xnor OxAAAA; 

If not yz goto falll, 

ct:=not ct, Idq ; 
ct:-ct xor OxAAAA; 
If not yz goto falll, * 

acc:=»zeros; *ACC gets zeros 

if not ctz4 goto falll, *Check for ctz4 condition initially. 

nop:-'acc+ct; *ACC and CT should be zero. 

pl_ctloop: * 

if not yz goto falll, *If acc+ct do not equal zero, they are out of 

acc:=»acc+one; * step. Increment ace. 

if not ctz goto pl_ctloop,*If ct is zero, then check to make sure 

nop:-»acc+ct ; * ace is also zero. Decrement ct. 

if not yz goto falll, * 

nop: •■ace; *Check that ctz occured at the same time 

if not yz goto faill, * ace was zero. 

ct:=ones; 

pl_stack: 
{ 

Call through the stack.. even overwrite a location in stack. 
} 

*rO0=F777 

*Push first rtn address onto stack. 

*Set up for bl5 check (remem status update) 

* 

*FAIL: no overwrite. (stk 1) 

* 

♦Should not call or push stack. 
*r01=EEEE 

* Check for bad stack pop. 
*r02=7777 Do It twice to offset possible 

* bad push at pl_calll. 
*r03=BBBB 



rOO:=OxF777; 
Icall pl__calll, 

bbus/rOO, alu/xor; 
faill: 

Igoto ;failtrap; 
pl_calll: 

if not bl5 call faill, 

r01:-lll(rOO); 
if not sf rtn, 

r02:-rrl(r01); 
if sf rtn, 

r03:=rrl(r02); 



if not alov call pi call2,*Should call pi call2. 



r04:=.lrl(r03); 
rtn, 

nop: "Zeros; 
pl_call2: 

Icall pl_call3; 
rtn, 

rll:=rll(rlO), Iwf; 
pl_call3: 

scall pl_call4, 

r05:=rll(r04); 
rtn, 

rl0:«rrl(r07), Iwe ; 
pl_call5: 
rtn, 

r07:-rrl(r06), Iwe; 
pl_call4: 

call pl_call5, 

r06:-rll(r05); 
if not yz then rtn, 

rl2:=r06 xor rll; 
nop:=rl2 xor 0x4cce; 
if not yz goto fail2, 

r01:»r00+acc; 



*r04=5DDD 

*Should not return to stackfail. 



*Try a long call. 

*rl 1=4779 (f was set) 
* 

*Try a short call. 

*r05=BBBA 

* 

*rlO=9DDD 

♦return down the chain. 

* 

*r07=3BBA 
* 

♦Should call, and overwrite 

*r06=7775 

* 

*rl2=4CCE 



(stk 2) 

(stk 3) 
(stk 4) 



(stk 1) 



pl_alu: 
{ 

Check the carry mechanism, .also cheek no status update. 
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004C 

004C 

004C 

004D 

004D 

004E 

004F 

004F 

0050 

0050 

0050 

0050 

0050 

0050 

0050 

0050 

0050 

0050 

0051 

0051 

0051 

0051 

0052 

0052 

0053 

0053 

0054 

0054 

0055 

0055 

0055 

0056 

0056 

0056 

0056 

0056 

0056 

0056 

0056 

0057 

0057 

0058 

0058 

0058 

0058 

0059 

0059 

0059 

005A 

00 5A 

005A 

00 5A 

005A 

005A 

005A 

005A 

005A 

005B 

005B 

005C 

005C 

005C 

005D 

005E 

005E 

005F 

005F 

0060 

0060 

0061 

0061 

0062 

0062 

0063 

0063 



If not cf goto fail2, 

acc;=r03-acc; 
If not alov goto fail2, 

r03:=r02 xor ace; 
rl6:=r03 xor 0x2aa9; 
If not yz goto fall2, 

nop:=sr; 



*cf should be true 
*alov should be true 



*(save zeros for later test) 
♦results should be 2aa9 



End of PL diagnostic 

Output 7FFF to lights 

Check for looping on selftest 

} 
{nop:=sr and 0x8000;} 
if not yl5 goto 
PU_DIAGN0STIC, 
acc:=lll(ones); 
blinky_lights: 
pl_d loop : 



*Check for diagnostic looping. 

*If no loop then goto PU diagnostic 

* 

*set up for blinky lights. 

*blinky lights routine 

*rotate a zero through the lights register 



if not ctz goto pl_dloop ,* count to 64k 



lr:=acc; 
if sf goto pl_dloop, 

acc:=rll(acc) ; 
goto TEST_RESIART, 
Ir :=zeros; 

fall2: goto FAILTRAP; 

PU_DIAGNOSTIC: 
lr:=not Ox7fff; 



* shift the zero until done. 
* 

♦Restart pi selftest 

* turn all lights on 



*show that PL diagnostic finished 



pu_preg : 

{ 

Store every value possible into the p register. 

Check ip. 

Check integrity of BBUS 
} 



*Set p to -1 

*Set ace to zeros, increment P to 

* using sp2/ip 

* 

*If ace and P are not equal, then fall, 
♦increment ace on ABUS. 



p;=ones; 

ace:=zeros, sp2/ip, 
goto pu_plpentry; 
pu ploop: 

if not yz goto fail2, 

stor/acc, abus/acc, 

fein, alu/adac; * 

pu plpentry: * 

if not ef goto pu ploop, *If Increment of ace rolls over, then done. 
n:=acc-p, spl/ip; *Else, compare ace and P and increment P. 

pu_nreg : 

{ 

Rotate a pattern through grin and prln. 
Check for dual addressing of register files. 
Load and check N register for all values. 
Check IN and DN. 
} 

rl7:=l; 
{ n:=zero; } 

ct :=ones; 
n loop: 
rin_setloop: 
grln:=rl7, in; 
rl7:=rll(rl7), dn; 
if not sf goto rln_setloop, 
prin:=not rl7, In; 
rln_cheekloop: 
nop:=grin-rl7; 
If not yz goto fall2, 

rl7:=rll(rl7); 
nop:=prln xnor rl7, 

in; 
If not yz goto fall2, 

aec:=zuy(n) ; 
if not sf goto 
rln_eheekloop. 



♦Load the test pattern 
♦start at first grin, prln location 
♦will loop 16 times (ctz4) 
♦Loop while incrementing N 
♦Load up registers 

♦ load pattern Into grin (try IN) 

♦ rotate pattern left (try DN) 

♦ if not done then loop (try IN) 

♦ load complement of test pattern into prln 
♦Check what was loaded 

♦ compare grin 
If not equal then fail 
rotate pattern 
compare grin 

(increment N) 
if not equal then fall 

save n for test (upper byte is ?) 
if not done then continue test 

compare ct and ace (n) 
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0063 

0064 

006A 

0065 

0065 

0065 

0066 

0066 

0066 

0066 

0066 

0066 

0066 

0067 

0067 

0068 

0069 

006A 

006B 

006B 

006B 

006B 

006B 

006B 

006B 

006C 

006D 

006D 

006E 

006F 

006F 

0070 

0071 

0071 

0072 

0073 

0073 

0074 

0074 

0075 

0076 

0076 

0077 

0077 

0077 

0077 

0077 

0077 

0077 

0078 

0078 

0079 

0079 

007A 

007A 

007A 

007B 

007C 

007D 

007E 

007F 

0080 

0080 

0080 

0081 

0081 

0082 

0082 

0083 

0083 

0084 

0084 

0085 

0086 

0086 



p:=ct; xnor ace; 
if not yz goto fail2, 

n:=n+oiie; 
If not ctz4 goto 

n_loop, 

memr :=q; 



* (load p with zeros for later test) 

* if ct Is not complement of n then fail 

* increment n (sliding diagonal) 

* loop 16 times (decrement ct) 
* 

* load memr with OxAAAA for following test 



pu_memr : 

{ 

check out memr and swzu,swap,swzl 
} 

rl7:=zuy(merar) , 

if not mpen goto fail2; 

memr:=not q, 
rdp, cle; 

ace :"swzl(memr) ; 

p:=srg{rl7):; 

acc:=asg(rl7); 



pu_lst: 

{ 

check out ist 
} 

call RESETJPU, 

acc:=p+acc; 
ist:=0xA80F; 
acc:=ist+acc, 

if intp goto fail2; 
lst:=0xAA0F; 
acc:=ist+-acc, 

if not intp goto fail2; 
ist:=0xBA53; 
acc:=ist+acc, 

if intf goto fail2; 
ist:=Ox55Al; 
acc:=ist+acc, 

if mpen goto fail2; 
call RESET_PU, 

ace :=ist+,3cc; 
acc:=acc xor 0x789B; 
if not yz goto fail2, 

nop:=lll( sr) ; 



*00aa 

* check mpen condition 
*5555 

* clear abfetch (p == 0) 
*5500 start "checksum" of alu functions 

* try srg PROM 

* try ASG PRCM 



*reset the IST 

* continue checksum 

set TBG flag (no FLTO) 

checksum ist (ist lags by 2 cycles) 

interrupts should be false 

set FLTO int 



interrupts should be true 
set MP int (turn MP on) 

intf should be false 
set PE interrupt (MP on) 

check if mpen condition works 
reset him, but checksum the 

parity error code 
look at the checksum (acc:= 0) 



end of PU diagnostic 
\ 
{nop:=sr and 0x4000;} 



*If bit 14 is open then loop 



if not yl5 goto MC DIAGNOS, * 



s3 :=lll(ones); 
goto blinky_llghts, 
ace :=s3; 

fall3: goto FAILTOAP; 

MC_DIAGNOSTIC: 
lr:= not Ox3FFF; 
sl:=OxlFFE; 
cf.=4Q95; 

s4: =0x2000 and sr; 
n:=9; 

p:=-020000; 
checkloop: 
rdp, 

s2:=zly(sl); 
if not ctz goto checkloop, 

acc:»t+aec, ip; 
if not yz goto fail4, 

nop:=s4; 
if not yz goto tstlink, 

lr:=not si; 
call F'L DIAGNOSTIC, 

prln.:=s2; 
goto START_UP; 

tstlink: 



*acc:= FFFE 

*do the blinky lights stuff 



* 

*(not here until checksum is in VCP) 
*store PU passed code to LEDs 
*save passed LED code for LR 
* 

♦(prepare to load PRIN LED copy) 
* 

♦Checksum of VCP ROM from 020000-037777 
* read bootrom location 



* and checksum until count 
*is checksum zero? n: fail 







*is MC loop bit set? 

*store "passed" LED code to LR 

* 

*save "passed" LED code in prin reg 
* 

*go to blinky lights 
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0086 


goto bllnky_lights. 


0086 


acc:-s3; 


0087 




0087 


fail4: 


0087 


goto FAILTRAP; 


0088 




01B8 


FL DIAGNOSTIC: $orlgi 


01B8 


rtn; 


01B9 




01B9 




OIBA 





$orlgln Oxlb8$ *if FL is Installed, It will execute 
* selftest here and extinguish LEDs 
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Figure F-1. Functional Block Diagram 
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DEBUGGING MICROCODE 



A logic analyzer can be used for efficient debugging of A700 processor microcode. With a logic 
analyzer, the actual micromachine execution can be followed, and the logic analyzer can be pro- 
grammed to trace the micromachine execution Tipon the detection of specified conditions. This appen- 
dix describes the signals that are accessible and the method of connecting a logic analyzer. 



G-1. DIAGNOSTIC CONNECTIONS 

The most important signals for microcode tracing are on the Microaddress Bus (to follow microcode 
execution) and the Y-Bus (to follow the results of arithmetic operations). The processor clock (PC-) 
should be used by the logic analyzer as the data-gathering clock. This clock is frozen during cycles 
when the micromachine is waiting for memory or map accesses; therefore, data-gathering will not 
occur during frozen cycles. Signal TESTSC- (system clock) is not frozen during these memory accesses 
and is equivalent to the backplane clock. 

These signals and others are accessible through two connectors on the A700 frontplane. The A700 
processor should be used with these cables attached only during microcode debugging and not during 
normal operation. Be sure to turn power off before connecting or disconnecting diagnostic cables. 

Connector J4 on the front plane is used for connection to the WCS and PCS cards. Pins 33 through 46 of 
this connector contain the control store address bus. A special cable to connect the frontplane to the 
WCS and also to the logic analyzer must be supplied and installed by the customer for debugging 
microcode. Table G-1 shows the pin-to-signal identification for connector J4. 

Connector J5 on the frontplane is used solely for connection to a logic analyzer. It contains the Y-Bus 
and the processor clock signals, in addition to some other signals. This cable must be supplied and 
installed by the customer. Table G-2 shows the pin-to-signal identification for connector J5. 



G-2. PROGRAMMING THE LOGIC ANALYZER 

The logic analyzer should be programmed with a format that accommodates these signals and with a 
trace specification that corresponds to the conditions you want to trace. 

The signals of the Y-Bus and control store address bus are positive-true, and the rising edge of the 
processor clock should trigger data-gathering. 

At the rising edge of the processor clock, the control store address bus has the microaddress of the next 
microinstruction, while the Y-Bus has the output of the ALU from the current microinstruction. This 
means that the contents of the Y-Bus due to a certain microinstruction are displayed in the cycle after 
the contents of the microaddress for that microinstruction are displayed. 
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Table G-1. Connector J4 Signal Identification 



PIN 


SIGNAL (* = RECOMMENDED FOR MICROCODE DEBUGGING) 


1 

through 

32 

*33 
'through 

*46 

47 

48 

49, 50 


Control Store Data Bit 

through 

Control Store Data Bit 31 

Control Store Address Bit 

through 

Control Store Address Bit 13 

Unused 

CSIDWC- Bottom of WCS/PCS Priority Chain (negative true) 

Ground 



Table G-2. Connector J5 Signal Identification 



PIN 



*1 -16 
17, 18 

19 

20 

21 

22 

'23 

24 
25, 26 

27 

28 

29 

30 
31, 32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
45, 46 

48 
49, 50 



SIGNAL (* = RECOMMENDED FOR MICROCODE DEBUGGING) 



Y-Bus Data Bit through Y-Bus Data Bit 15 

Ground 

BBUS/SRIN Microorder (negative true) 

CSADIS- Disable Processor Control Store (input for testing) 

BPON+ Processor Power-On Line 

0P1/JTAB Microorder (negative true) 

Processor Clock PC- (negative true, rising edge triggering) 

INTP Condition Line 

Ground 

FREEZE- Memory Access Freeze Line (negative true) 

TESTSC- Diagnostic Clock Line (negative true) 

ECLK (external clock for testing) 

CKDIS- (disable internal clock for testing) 

Ground 

INTF Condition 

STOR/GRIN (negative true) 

STOR/SRIN (negative true) 

STOR/P (negative true) 

STOR/PRIN (negative true) 

STOR/IST (negative true) 

FFRZ- (for testing) 

STOR/MEMR (negative true) 

N-Register Bit 1 

N-Register Bit 

N-Register Bit 3 

N-Register Bit 2 

CSIDWC- Bottom of WCS/PCS Priority Chain (negative true) 

Unused 

Ground 
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G-3. DIAGNOSTIC WINDOW MICROCODE 



Special microcode is available in the A700 base set for debugging user microcode. This microcode, 
called the "Diagnostic Window", also provides a look at base set execution. The diagnostic JTAB loop is 
employed to load the window contents onto the Y-Bus where it is available for display on the logic 
analyzer. The diagnostic window is selected when switch 5 (labeled DW) on the frontplane is in the 
"open" position. 

The diagnostic JTAB loop is entered only after power-on, reset, or an interrupt. This loop adds about 2 
microseconds per macroinstruction execution time; therefore, the execution speed of your A700 
processor will be degraded while the diagnostic JTAB loop is selected. Be sure to reset switch DW to 
the "closed" position when microprogram debugging is completed. 

The diagnostic JTAB LOOP microcode is located at OxEO through OxEA. Between macroinstructions, 
the information is passed to the Y-Bus so that it can be displayed on the logic analyzer. The 
information is displayed in the line following the line being executed due to the relation of the Y-Bus, 
the microaddress bus, and the processor clock. 

The information at the ten locations is as follows: 

a. OxEO (shown at location OxEl). The T-register is on the Y-Bus at this point in the diagnostic JTAB 
loop, the T-register contains the next macroinstruction to be executed. 

b. OxEl (shown at location 0xE2). The contents of the FA (fetch address) latch are displayed through 
the Y-Bus. This is the logical address from which the macroinstruction (opcode) was fetched. 

c. 0xE2. A microinstruction containing the JTAB microorder and a jump-to-subroutine is performed 
to the "jump table area" (locations 0x100 through OxlFF) of the base set. 

d. Microprogram execution. 

e. 0xE3 (shown at location 0xE4). Microprograms will return to the JTAB loop at location 0xE3, 
where the A-register is displayed through the Y-Bus. 

f. 0xE4 through 0xE6 (shown at locations 0xE5 through 0xE7). The B, 1ST, and MEMR registers are 
displayed successively. 

g. 0xE8 (shown at location 0xE9). The contents of the PRIN register that contains interrupt in- 
formation is displayed. 

h. 0xE9. Interrupts are checked before the loop is continued. 
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Appendix G 

Summary of Diagnostic JTAB loop (as would be shown on a logic analyzer): 



OxEl 


Macroinstruction to be executed. 


0xE2 


Logical Memory Address of macroinstruction 


— 


(Microprogram Execution) 


0xE4 


A-register. 


0xE5 


B-register. 


0xE6 


IST-register. 


OxE7 


MEMR- register. 


0xE9 


PRIN-register (microcode-kept interrupt status) 



Other microroutines of the base set microcode may be useful for tracing execution of the A700 
processor. The interrupt service routine jump table, at locations OxFO through OxFF is useful for 
tracing interrupt servicing. Microaddress wU be executed on microcode timeout. 

Refer to the base set listing for specific information about interrupt handling and instruction 
execution. (Note: HP resei-ves the right to change the A700 base set. You should not branch into the 
A700 base set to make use of existing routines.) 
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Microprogramming Preparation Steps 

3-3. THE PARAPHRASER MICROCODE MICROASSEMBLER 

The paraphaser microcoding microassembler language converts a source microprogram into binary 
object code which may be directed to an output device and/or stored in a disc file. The paraphraser is a 
necessary tool for preparing microprograms since the microinstruction word length is 32 bits which 
makes other coding methods difficult. 

The source may be input fi-om an input device or disc file. The disc file is easiest since this file can be 
the same file developed when writing and editing the program with the HP 1000 Editor. The object 
code will be in the standard microinstruction format which is recognized by the WLOAD utility 
routine. The program can supply a source listing, a floating field listing of the microinstructions, a 
label listing, and a list of any errors. 

The paraphraser program name is MPARA. MPARA can run with or without the File Manager, and it 
requires a minimum of 28k words of memory. All information on preparation of microprograms with 
the paraphraser and output of the microprograms is contained in Sections 7 and 8 of this manual. 



3-4. DRIVER ID.41 

Driver ID.41 must be configured into the RTE system during system generation to provide software 
linking between MPARA, WLOAD, and the WCS card. 

NOTE 

The microprogramming support software can be included either 
during system generation or loaded into the system when 
required. 

Driver ID.41 drives HP 12153A WCS cards for reads and writes (from and to main memory) and allows 
control of WCS board functions. The driver utilizes DMA which provides fast data transfer. 

When configured in the RTE system, all WCS cards should have a select code of octal 20 or higher. In 
the system, the driver can be called directly with an EXEC call, or through the WLOAD program 
(refer to the RTE Driver ID.41 For HP 12 153 A WCS Cards Reference Manual). 

3-5. WLOAD 

The WCS I/O Utility program WLOAD uses driver ID.41 and transfers microprogram object code into 
WCS when run by the user. Section 9 in this manual contains information on WLOAD used as an I/O 
utility. WLOAD also includes a PROM "bum tape" function (see paragraph 3-7). 

3-6. LOADING THE MICROPROGRAMMING SUPPORT SOFTWARE 

The WCS driver ID.41 must be loaded at system generation time. (Refer to RTE Driver ID.41 For HP 
12153 A WCS Card Reference Manual, part no. 92045-90002.) The WLOAD program must be loaded on 
line using the RTE-A. 1 LINK program. The MPARA microprogramming language can be loaded on an 
RTE-A system using the LINK program or on an RTE-6/VM system using the LOADR program. 
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Microprogramming Preparation Steps 

3-7. PROM CODE GENERATOR 

The process of loading the microcode into the PROMs (Programmable Read Only Memory) is ac- 
complished for fusing ("burning") the binary bits into the PROM chip. The binary code for the PROMs 
is generated by the PROM "burn tape" function of WLOAD that uses the final binary object code of the 
microprogram as input. The program should be tested and debugged by running the program from a 
WCS card before making expensive PROMs. For additional information on PROM burning, refer to 
Section 10 of this manual. 



3-8. PREPARATORY STEPS 

Condensed information on the required preparatory steps for microprogramming appear in Table 3-1 
along with references to the sections of this manual (or to applicable documents). The letters in the 
referenced column are keyed to entries in Table 3-2, and the numerals refer to sections in this manual. 

Table 3-2 is a list of HP 92045A Microprogramming Software and HP manuals used by the 
microprogrammer for the HP 1000 A700 computer systems. Section 12 provides examples of the 
procedures you may want. 

In preparation for microprogramming, the WCS cards to be used must be initialized before they can be 
used. 



3-9. DEBUGGING MICROCODE 

After you have written your source microcode and fixed any errors found by MPARA, load the object 
code into WCS and try running it. If its performance is not to your satisfaction you will want to 
"debug" it. Microcode debugging on the A700 processor is most efficiently accomplished through the 
use of a logic analyzer. Hewlett-Packard logic analyzers are recommended since they were used 
throughout the development of the base set and floating point microcode and provided the desired 
results. 

A logic analyzer allows the actual micromachine execution to be followed, and it can be programmed to 
trace the micromachine execution upon detection of certain conditions. Details on connecting a logic 
analyzer and information on its use are given in Appendix G (Debugging Microcode). 
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WRITABLE CONTROL STORE (WCS) 

SUPPORT SOFTWARE 



SECTION 



The previous section (Section 8) describes a method of preparing a microprogram and storing this 
source program in a system file. The source program, prepared "offline" or on some other system, could 
have been stored in a system file by loading it through a system input device. The source program is 
then translated by the paraphraser (MPARA) microassembler program and filed as binary object code 
(or microcode) in another system file. This later file is the ready-to-use microinstructions of your 
program. In order to make use of this microcode it must be moved into the Control Store 
(micromachine memory) of the computer. 

The computer's extended Control Store for user programs is provided by Writable Control Store (WCS) 
and PROM Control Store (PCS) cards. Normally, the microprogram is initially loaded into a WCS card 
so that test runs of the program can demonstrate that it has no "bugs" before burning PROMs to install 
on a PCS card. 

The WCS cards are loaded by using a program called "WLOAD." WLOAD is a utility progrtun which 
loads WCS and generates PROM "bum tape" code under the RTE operating system. An understanding 
of WCS memory mapping is essential for loading microprograms into it. This subject is summarized 
below. For additional information on the WCS card, which can be useful to the user for a better 
understanding of how to load it, refer to the HP 1000 A700 User Control Store Installation and 
Reference Manual, part no. 02137-90003. The WLOAD PROM "bum tape" function is covered in 
Section 10. 



9-1. WCS MAPPING 

Tlie micromachine of the HP A700 computer has a microcode address space of 16k words of which the 
user may use 8k words. The 16k words are conceptually divided into 16 logical Ik modules numbered 
from through IS. Each WCS card contains four banks of RAMs (Random Access Memory) for a total 
of 4k-word8 per card. The banks are numbered 0, 1, 2, and 3. 

A mapping RAM on each card maps the logical modules to the physical banks. The map RAM has 16 
locations each of which corresponds to a logical module. On each card, the logical module may be 
assigned a physical block that will be enabled when addressed through mapping, or it may be 
unmapped. If a logical module is mapped on more than one card at a time, the card which is higher 
priority in the control store chain will be enabled and will disable the other cards (including the 
processor control store). 

NOTE 

On power-up, the mapping RAM will be in an unknown state. The 
IN (initialize) command should always be used to unmap all 
logical modules. Care should always be taken to assure that the 
WCS has been properly loaded (mapping RAM and data RAMs) 
before turning WCS on. 



Update 1 9-1 



WCS Support Software 

9-2. USING WLOAD 

To load a WCS card using WLOAD, the user assigns an LU to the card to identify its I/O location for 
program interaction. Next, the appropriate logical to physical mapping is set up, and then a file or files 
are usually specified from which to download data. 

An example of running WLOAD to load a WCS card follows: 
RU.WLOAD 

NOTE 

The WLOAD prompt "xx> " will appear on your terminal where 
XX is the WCS LU which is currently specified. In this example, 
the WCS LU is specified by the user as 63 is the first step under 
WLOAD. 

Continue with this procedure while running under WLOAD execution: 

PROCEDURE COMMENTS 

0>LU,63 WLOAD starts up with LU=0; User enters LU of WCS. 

63>IN Initialize. Turn off WCS and unmap all logical modules. 

63>EQ,4,0 User equates the logical module 4 address (1000-13FF hex) to physical 

bank 0. 

63>LB,%EXMPL User loads microcode from the binary format file %EXMPL (example). 

63>ON User turns WCS on. 

63>EX Exit program. 



9-3. WLOAD COMMANDS 

WLOAD commands are two characters. Some of the commands require parameters which may be 
included on the command line separated by commas. If required commands are not included on the 
command line, WLOAD will prompt for the parameters. 

Commands which read from or write to either the data RAMs or the map RAMs require that WCS be 
turned off. If WCS was on when such a command is executed, WCS will be automatically turned off, 
and it will be turned back on after execution of the command, unless a WCS I/O error occurs. 

Before turning WCS off or executing the command, the input parameters fure checked for validity. The 
following checks are performed as applicable: 

1. If the logical module is between and 15. 

2. If the physical bank is between and 3. 

3. If the WCS address or data is in hex format and the address <16k (4000). 

4. If the input file (or LU) can be opened. 

5. If the output file (or LU) can be opened or created. 
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Microprograms 



12-2. BUFFER INITIALIZATION EXAMPLE 

EXAMPLE 1: INITIALIZE BUFFER, FORTRAN PROGRAM 

FTN7X,L,I ,Y 

PROGRAM JGKE3 
C 

C MAIN PROGRAM: 
C 

C Calls assembly routine MNIT' to Initialize a 
C user buffer. 'INIT' Invokes the microcode. 
C 

C RUN STRING: RUN, J0KE3, START, INC, NUMBR 
C 

C START: Starting value of buffer 

INC: Increment between values 

C NUMBR: Total number of elements 

C 

IMPLICIT INTEGER <A-2) 

DIMENSION BUFFdOOOO) 

DIMENSION PARMS(5> 

EQUIVALENCE (PARMS( 1 ) .START) , (PARMS<2) , INO 

EQUIVALENCE (PARMSO) .NUMBR) 
C 

C Get starting value, Increment, and number of elements 
C 

CALL RMPAR(PARMS) 

IF (lABS(NUMBR) .GT. 10000) GOTO 999 
C 

C Initialize the buffer 
C 

CALL INIT<BUFF, START, INC, NUMBR) 
C 

C Print the buffer to scheduling lu 
C 

SESN - -1 

LU - LOGLUtSESN) 

WRITE<LU,10)(BUFF(J),J-1 , NUMBR) 
10 FaRMAT(8(2X,I6)) 
999 END 



EXAMPLE 1: INITIALIZE BUFFER, ASSEMBLER INTERFACE 

MACRO, L 

NAM INIT, 7 

Calls the microcode to Initialize the buffer passed 
by the calling program. 

CALLING SEQUENCE: 

CALL I NIT(BUFF, START, INC, NUMBR) 

ENT INIT 

EXT .ENTR,.INIT 

• .INIT must be declared as an entry point In a separate 

• assembly module as follows: .INIT RPL 105500B 
• 

BUFF BSS 1 BUFFER ADDRESS 

START BSS 1 STARTING VALUE 

INC BSS 1 INCREMENTS 

NUMBR BSS 1 NUMBER OF ELEMENTS 
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GET PARAMETERS 



INIT NOP 

JSB .ENTR 
DEF BUFF 

• Branch to control Store Address (0x3000) 

JSB .INIT USER OPCODE 

DEF MUFF BUFFER ADDRESS 

DEF tSTART STARTING VALUE 

DEF flNC INCREMENT 

DEF fNUMBR NUMBER OF ELEMENTS 



JMP f INIT 
END INIT 



RETURN 



EXAMPLE 1: INITIALIZE BUFFER, MICROPROGRAM 

MPARA.L.F; 

UG_INIT: »orlgln 0x3030$ 

DESCRIPTION: 

Instruction MNBUF' Initializes a buffer In the user 
program as specified by the calling program. The 
Instruction Is non-lnterruptable and does not check 
for Interrupts after every write to user memory. 
The memory protect logic Is enabled so that any memory 
violation will be detected before the next Instruction 
Is executed <ie. before the next JTAB) . Therefore, 
memory Is protected throughout the entire instruction. 

CALLING SEQ: 

JSB .INIT 

DEF BUFF (,I) 

DEF START (,I> 

DEF INC CD 

DEF NUMBR ( ,1) 



Mhere: BUFF 
START 

INC 

NUMBR 



Is the user buffer 

Is the starting value to Initialize 

the buffer with (le. buf f (D-start) 

the Increment to the next buffer value 

(le. buff(2) - start+lnc) 

the number of words to Initialize 

(If numbr <0 use abs(numbr)) 



XTRNL: fdeflne adr l/lnst_restart OxOODOf 



INT_BUF: rdp , ip; 

call RSV_INDj 



•read def buff 
•resolve Indlrects 



• must complete read started by RSV_IND 

• s7 has the direct buffer address on return 
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